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* INTRODUCTION AND OVERVIEW # * Section 1. 1 * 
Version I 5 September 1978 



The UCSD Pascal system described in the following document is a 
system intended to run on stand alone micro- and mini-computers. This 
system is highly machine independent since it runs on a pseudo-machine 
interpreter commonly referred to as the "P-machine". All the system 
software is written in Pascal., except for the P-machina interpreter and 
a few run-time support routines written in assembler for efficiency, 
resulting in relatively straightforward software maintenance and 
enhancement. 



The system is designed to be used primarily with a CRT terminal 
acting as the CONSOLE device; however, the system is flexible enough to 
be reconfigured for slower hard-copy terminals. For further 
information regarding compatab il ity between various types of equipment 
and this system see the "SETUP" document in Section 4.3. This document 
is intended for programmers who are familiar with the Pascal 
programming language and have some experience in writing computer 
programs 

The following is a tutorial book on PASCAL: 

Kenneth L. Bowles. 

(Microcomputer) Problem Solving Using PASCAL 

Spr inger-Verlag. New York/ <c)1977 

Wt» suggest the following book as a PASCAL reference guide: 

Kathleen Jensen and Niklaus Ulirth* 
PASCAL User Manual and Report 
Springer-Verlag. New York. (c)i975 



For documentation concerning the differences between UCSD 

Pascal and Si&mjBvd Pascal see Section 2. 2. 



Page 1 



1. 1. 1 THE UCSD PASCAL SYSTEM: AN OVERVIEW 

The structure of the UCSD Pascal system is best 
conceptualized in terms of the "tree-like" structure* diagram figure 0.1 
at 'the end of this sub- section 

The diagram in figure 0. 1 depicts the outermost level of the 
system. In terms of a "tree?" or structure diagram* the "root" 
corresponds to the outermost level* while the "leaves" (i.e. the boxes 
with no branches to lower levels) covrg^pond to the lower levels of the 
system. While a user is in a particular level, the system displays a 
list o-P available commands called the "prompt-line". If the system is 
running on a CRT screen type terminal/ then the prompt-line will 
usually appear at the top of the screen. Commands are usually invoked 
by typing a single character from the CONSOLE device. For example* the 
prompt-line for the outermost level of the system is: 

Command: E(dit* R<un* F(ile, CComp* LCink> X<ecute, A<ssem ; DCehug* ? CI. 53 

By typing "F" the user will ''descend' 5 a level within the 
structure diagram into a level called the ''Filer". Upon entering the 

"iler,- another prompt-line detailing the set of commands available at 
the Filer level of the system is displayed. The Q(uit command causes 
the user to e*it from the Filer and "ascend'' back to the outermost 
command level of the system. Now the user is back at the level in the 
system from which he started after bootstrapping the machine. Some 
commands within the system prompt the uszr for the name of some disk 
file In these cases* the user enters the name of the file followed by 
a carriage return. If ar\ error is made in typing a portion of the file 
name, the backspace key (or equivalent key depending upon the system 
configuration) may be used to '"back over" and ®va%e the erroneous 
part The line delete key (rubout key) may be u?j*sd to erase the entire 
file naire. thereby allowing the user to completely start over. If the 
user decides not to accept any file name wh-st-s .o»var> ''escape" from this 
command is by entering a file name of zero characters* i. e.. type <cr>. 

Note that due to a limited amount of room on the prompt-line* 
some of the infrequently used commands may not appear on the prompt- 
I ine. 

A concept central to the design of the entire UCSD Pascal 
system command structure i5 the concept of the "u/orkf i le". A work file 
:ar. be thought of as a "scratch-pad" aT&& used for development of 
programs and only one u/orkfile is allowed at any one time. If a user 
wishes to begin a new workfile* the contents of the old one can be 
saved> under a separate file name* for later reference by using the 
3<avs command in the Filer level of the system. Nhen that file is 
later retrieved for further work on the contents* it is possible that a 
number of files (usually source and code) will be retrieved together 
and in total they comprise the work -file 



^bcq 2 



1.1.2 OUTERMOST LEVEL COMMANDS AN OVERVIEW 

A. E(dit 

Typing "E" while at the outermost command level of the system 
causes the editor program to be brought into memory from disk. The 
user may* while in the editor/ insert or delete text inside his 
work file or any textfile* along with many other powerful commands. See 
Section 1.3 for details. The workfile text (if present) is read into 
the editor buffer* otherwise the Editor prompts for a file. 

B F(iier 

!, F" places the user in a level of the system called the Filer. 
This section of the system contains commands used primarily for 
maintenance of the files stored on the disk. The L(dir command allows 
the user to list the titles and the last modification date, as well as 
determine the number of blocks occupied by each file on the disk. The 
T<ransfer command is used to copy from either one disk to another* or 
from one area on a particular disk to another area on the same disk. 
For more documentation on the Filer level including commands associated 
with the "getting"* "saving"* and "clearing" of the user's workfile see 
Section 1 , 2. 

C C(omp 

This command initiates the system compiler to compile the users 
work-file. If there is no work—file currently the user is asked for a 
source text file? name. If a syntax error within the source is 
detected* the compiler will stop and display the error number and the 
surrounding text of the program. By typing a space* the user can cause 
the compiler to continue the compilation. Typing an <esc> causes the 
compiler to abort & return to Command level. Typing 'E' will* if the 
system editor is the screen editor* call the editor placing the cursor 
near the offending symbol. If the compilation is successful* (i.e. no 
syntax errors were encountered) a codefile called #SYSTEM. WRK. CODE is 
written out onto the user's disk and becomes part of the workfile. For 
more documentation on. the use of the UCSD Pascal compiler see Section 
1. 6. 



D R(un 

This command causes the codefile associated with the current 
workfile to be executed. If no such code file currently exists* the 
compiler is called in the same manner as described in C above. If the 
compilation T®q.\jir®s linkage to separately compiled code the linker 
will automatically be invoked an6 will assume the use of the file 
^SYSTEM. LIBRARY. After a successful compilation* the program is 
executed. 
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E. X(ecute 

This command prompts the user for the filename of a previously 
compiled codefile. If the file exists* the codefile is executed;, 
otherwise the message "can't find file" is returned. (Note: the 
".CODE" suffix on such a file is implicit ) If all code necessary to 
execute the codefile has not been linked in/ the message "file <fileid> 
not linked in is returned. It is convenient to X<ecute other programs 
which have already been compiled because otherwise the user would have 
to enter the Filer. G\'et the file* QCuit the Filer,, and then RCtm the 
program. 

F. A(ssem 

Just like C<omp except the system assembler is invoked rather 
than the system compiler. 

G. D(ebug 

This command causes the current workfile to be executed. If 
the program in the workfile has not been compiled* the compiler will be 
called as in the case of the R<un command However if a run-time error 

occurs* or a user- defined break-point 'or halt is encountered* the 
Debugger program is called. The Debugger is a program which allows the 
user to examine the contents of variables within the program. See 
section i. 5 Debugger for more details 

H. L(ink 

This command starts the system linker program explicitly to 
allow users to link -routines from libraries other than 
^SYSTEM. LIBRARY. See section i.8 for more information or. the Linker. 

1.1.3 UTILITY PROGRAMS 

There are many functions needed by users of any operating 
system. To attempt to make all these functions system functions would 
result in a terrible proliferation of command - letters' as the base node 
level. In order to keep the COMMAND line simple* we have restricted 
the functions available on it to what we feel is the bare minimum for 
program and text development The other useful, but much less often 
used functions av® available through the X<ecute command. The sort of 
functions which av& available are the desk calculator, the patch/dump 
utility.- the terminal configuration setup program* a bootstrap mover* a 
librarian and many others. For a complete list of the utility programs 
now available with the UCSD Pascal system, reference Section 4 in the 
Table of Contents. Any programs which you write and feel would be a 
jseful addition to our library of utilities will be welcome 
:ontr ibut ions 
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i. 1.4 AN INTRODUCTION TO THE UCSD PASCAL SYSTEM 



I. 5 is the first release which contains the fully intergrated 
and implemented concept of separate compilation and assembly. I. 4b was 
the first to support multiple types of processors. 

The great bulk of the system software is written in Pascal and 
runs on a relatively simple pseudo-machine. If this pseudo-machine is 
emulated by a machine language program on a new real machine/ the 
Pascal software will also run on that new real machine. 



One class of differences among versions of the system is 6us to 
ts of the pseudo-machine that ave not identicaly emulated by the 
implementations for different types of processors. A subsection in 
section A contains a chart of differences between processors the system 
currently runs on. 



aspec 
imp lem 



Another class of differences stems from variations in the 
system I/O environments rather than in the host processor. Included 
here are difference in system console terminal types (e. e. hard— copy vs 
CRT vs storage tube) or command conventions and capabilities <eg. 
"intelligent" vs "dumb" CRT's). The system is intended to be able to 
cope with this sort of variation. Version 1.4 had some troubles with 
terminals that generate/require two-character sequences for some 
controlsi and single-character sequences far others. The utility 
program "SETUP" has been completely regenerated for 1.5 (see section 
4.3). 

In the PDP-11 world these mass storage variations are not too 
serious* primarily because there is considerable motivation to be 
compatible* with DEC devices and ro&dia. We have written and support 
drivers for a few DEC incompatible devices but make no* claim to 
support users who want to develop their own such drivers. See section 
A for warnings about problems you might encounter. 

The situation in the 8080/ Z80 world is much more chaotic. 
Since is would not be practical for the Project to write and support 
drivers far the vast multitude of 8080/Z80 I/O environments that exist, 
we have chosen to take advantage of the widespread implementation of 
Digital Research's CP/H operating system by structuring the pseudo- 
machine's I/O operations as calls on CP/M's Basic I/O Subsystem (BIOS) 
primitives Therefore/ any I/O configuration on which CP/M has been 
implemented' should also be able to support the Pascal system. We do 
not guarantee this. For example; Intel MDS disk controllers cannot 
read disks generated here and some BIOS's we have encountered do not 
completely meet all the requirements specified for CP/M. UCSD plans to 
support some of the larger distribution 8080-based machines directly. 

Our dominant mode of distribution for 8080/Z80 systems will be 
on 3740 compatible diskettes One of the distribution diskettes will 
be CP/M oriented This disk will be used, via a somewhat awkward two- 
step process/ to bring up UCSD Pascal on a particular CP/M 
configuration Look to section A for details on this process. It also 
describes the configuration of a modified BIOS* which will better 
support the needs of the Pascal system. Finally* directions are given 
for making it possible to boot directly to Pascal rather than 
indirectly through a CP/M program. 
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A number of files on the disk start with 'SYSTEM ' specifically: 

SYSTEM, WV- 1 1 
SYSTEM. MICRO 
SYSTEM. PASCAL 
SYSTEM. FILER 
SYSTEM. COMPILER 
SYSTEM. SYNTAX 
SYSTEM. EDITOR 
SYSTEM. LINKER 
SYSTEM. ASSMBLER 
SYSTEM. SWAPDISK 
SYSTEM. CHARSET 
SYSTEM. LIBRARY 
SYSTEM. WRK. TEXT 
SYSTEM. WRK. CODE 
SYSTEM. STARTUP 

In most cases these files. contain the system segment of the 
name they carry. That is to say that the EDITOR, FILER* LINKER* 
COMPILER, ASSEMBLER are the files that are invoked by the text editor 
uhen 'E'* 'F'i etc. is typed. Some of the files are machine specific. 
INTERP and MICRO are the files which contain the interpreters for the 
^articular machine being used. CHARSET is a file which appears on 
disks meant for TERAK computers only and contains the definition for 
bhe soft character set* and the data for the Triton logo prompt. 
-IBRARY is a file containing separately assembled or compiled routines 
Por use by the Linker in producing executable code files. PASCAL 
contains the operating system* and the Debugger. SWAPDISK is a file 
jsed by some of the system segments during compilation of "include" 
Piles if a memory shortage exists. It is a 2048 byte file which gets a 
jortion of memory swapped to it when a directory needs to be read into 
:ore. When the directory work is complete* the memory is restored to 
its original state. STARTUP is a file which can be created at the 
jser's option. If it exists on a disk* the operating system considers 
It a runnable code-file* and executes it at initialize time. This 
allows the user to have a program that runs before the main command 
>rompt comes up* and will run anytime the I (nitial i ze command is 
;yped. WRK. TEXT and WRK. CODE are the current work-file after some 
iction has occurred to the work-file. They appear after having done 
► ome text editing on a work-file (SYSTEM. WRK. TEXT) or compiling a work- 
s ile (SYSTEM. WRK. CODE). 

All other files on the disk avs user generated (in one fashion 
>r another). The other important parts of a disk are relatively 
nvisible to the user. The directory resides at block 2 on the disk 
ind extends for 4 blocks if it is a single directory* 8 blocks if it is 
i duplicated (backed-up) directory. The bootstrap can reside at any of 
i number of places on the disk* depending on the host machine. In most 
ases* blocks and 1 are reserved far the bootstrap, 
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FILES 



A file is a discrete 'chunk* of information which is stared on 
the disk and referenced by a filename. Each disk has a directory 
which contains the filenames and locations of each file on the disk. 

The Fi 1 eh an dler, or Filer* uses the information contained in the disk 
directory to manipulate files. 

One of the attributes of a file is its type. The type of the 
file determines the way in which it car; be used. File types ar^t 

assigned based on the file name. 

Reserved type suffixes for filenames are: 



, TEXT 
. CODE 
. DATA 

. FOTQ 
. GRAF 

. BAD 



Human readable text. 

Machine executable code. 

Data file. 

A file containing one TERAK screen-image. 

Intended to be a file containing a vector 

list of a graphic image Currently unusei 

An unmovafcle file covering a physically 

damaoed area of a disk, 



A . a. 


. 2 VOLUMES 






A volume i 


or 


a disk A " 


bio 


directory and f 


lie 


b lo 


c k— structure 


d d 


pre 


duces or cor 


Bum 


key 


board* for e 


xam 


ill 


ustrates the 


re 


S v t 1 


u c t u v e d d e v i 


C; Q s 


the 


unit number 


s a 


alt 


©mate disks 





s any I/O device* such as the printer* the keyboard* 

c k-st rue tured " device is one that can have a 

s* usually a disk of some sort.. A non- 

evice does not have internal structure* it simply 

es a stream of characters. The printer and the 

pie* av& non-block-structured, The table below 

served volume names u^ed to refer to non-block- 

i fche 'unit number' associated with each device* and 

ssociated with the system (booted) disk and any 
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Unit Number 



Volume ID 



Description 



1 
2 
3 
4 
5 
6 

a 

9-12 



CONSOLE: 

SYSTERM: 

GRAPHIC 
•Cvolume name>: 
<volume name>: 

PRINTER: 

REMOTE: 
<volume name> 



screen and keyboard with echo 
screen and keyboard without echo 
the graphic 'side' of the screen 
the system disk 
the alternate disk 
the line printer 
additional peripherals 
additional disk drives 



FIGURE 1 



1. 2. 3 



THE 'WORKFILE 



The workfile is a temporary copy of the file being modified. 
It is used by the Filer* in the Editor* and by the Compiler When the 
text part of a workfile is changed* the system stores it on disk under 
the name '*SYSTEM. WRK. TEXT '* and when a code version is first created* 
it is named '*SYSTEM. WRK. CODE'. 



1.2.4 FILE SPECIFICATION 



Many Filer commands require the user to respond with at least 
one file specification, The diagram below illustrates the syntax of 
file specification. 



<fl\e specification 



-*f volume ID 1 ^string} 




(£>T < P t ntVer e > 7<i) 
— 0— 



FIGURE 2 
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Volume i. d. syntax can be expanded thusly 



<vp\une ID> 




T+ 



<p 



— nvo Inane V 



FIGURE 3 



Volume names for block-structured volumes can be arbitrarily 
assigned by the user. A volume name must be 7 or less characters long 
and may not contain '«'* '*'» '?' or '♦ '. Reserved volume names for 
non- block-structured devices are given in Figure 1 The character '*' 
is the volume ID of the 'system disk'* the disk upon which the system 
was booted. The character ': '* when used alone* is the volume ID of the 
'default disk'. The system disk and default disk are equivalent unless 
the default prefix (see material on P(refix) has been changed. '"' 



'#<unit 
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numfeer>' is equivalent to the name of the volume in the drive at that 
time. 

A legal filename can consist of up to 15 characters. In order 
for the file to be run the last 5 characters must be . TEXT* .CODE* OR 
.DATA. Without these suffixes the file may be executed but not put in 
the workfile to be run. Lower-case letters will be translated 
to upper-case, and blanks and non-printing characters will be removed 
from the filename. Legal characters for filenames are the 
alphanumer ics and the special characters '-'* '/', '\'» '_/» and '. '. 
These special characters may be used to indicate hierarchic 
relationships among files and/or to distinguish several related files 
of different types. 

WARNING: The 1.5 Filer will not be able to access filenames containing 
the characters '$'* ': * f '«'* '?', and '» '. If files from previous 
versions of the system contain these characters* then they should be 
removed before attempting to use those files with the 1.5 System. 

The wildcard characters* '*' and "?'» are used to specify 
subsets of the directory. The Filer performs the requested action on 
all files meeting the specifications. A file specification containing 
the subset-specifying string 'DOC-TEXT' notifies the Filer to perform 
the requested action on all files whose names begin with the string 
'DOC and end with the string 'TEXT'. If a '? ' is used in place of an 
/=s/ * the Filer requests verification before affecting each file meeting 
the specified criteria. Either or both strings may be empty. For 
example* a subset specification of the form '~<string>' or '<string>~' 
or even '«' is valid. This last case, where both subset- specifying 
strings are empty* is interpreted by the Filer to specify every file on 
the volume* so typing '«' or '?' alone causes the Filer to perform the 
appropriate action on every file in the directory. 

Given an example directory for volume MYDISK: 

NAUGHTYBITS 6 23-Jun~54 

MOLD. TEXT 4 29-Jun-54 

USELESS. CODE 10 19-May-54 

MOLD. CODE 4 29-Jun-54 

NEVERMORE. TEXT 12 5-Apr-54 

GOONS 5 10-Sep-52 



k age 



EXAMPLE: 

Prompt; Remove what file? 



Response: Typing 'N»' generates the message: 

MVDISK: NAUGBTYBITS removed 
MYDXSK: NEVERMORE. TEXT removed 
Update directory? 

(At this point the user can type 'Y' to remove or 
type 'IMS in which case the files will not be 
removed. The Filer always requests verification 
on any wildcard removes. ) 

Typing 'N?' generates the message: 

Remove NAU0HTYBIT5: ? 

After the user types a response! the Filer asks: 

Remove NEVERMORE. TEXT: ? 

EXAMPLE: 

Prompt, Dir listing of what vol ? 

Response: Typing '-TEXT' causes the Filer to list 

MOLD. TEXT 4 29-Jun-54 ' 
NEVERMORE. TEXT 12 5--Apr~54 

The subset-specifying strings may not 'overlap'. For.' example* 
GOON-NS would not specify the file GOONS* whereas GGON-S would 
be a valid (although pointless) specification. 

The size specification information is predominantly useful in 
the commands T<ransfer section 1.2.5.11 and M(ake section 1.2.5.17. 
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1.2.5 COMMANDS AND USE 

Type "F" at the Command level to enter the Filer and the 
following prompt is displayed: 

Filer: G(et* S<ave* WChat* Mew* LCdir* RCem* C(hng* T(rans# D(ate* Q(uit 

Typing '?' in response to this prompt displays more Filer commands: 

Filer: BCad-blks* E<xt-dir* K(rnch* M<ake* P(refix* VCols* XCamine* ZCero 



The individual Filer commands are invoked by typing the 
letter found to the left of the parenthesis. For example/ 
'S' would invoke the Save command. 

In the Filer* answering a Yes/No question with any character 
other than 'V constitutes a 'No' answer. Typing an <esc> will return 
the user to the outer level of the Filer. 

For each command requiring a file specif ication> refer to the 
file specification diagram (Figure 2). In many cases* the entire file 
specification is not necessary* and in some cases* certain parts of the 
file specification are not valid. See the required command in the 
following section. 

Whenever a Filer command requests a file specification* the 
user may specify as many files as desired* by separating the file 
specifications with commas* and terminating this 'file list' with a 
carriage return. Commands operating on single filenames will keep 
reading filenames from the file list and operating on them until there 
are none left. Commands operating on two filenames (such as C(hange 
and T(rans> will take file names in pairs and operate on each pair 
until only one or none remains. If one filename remains* the Filer 
Aii 11 prompt for the second member of the pair. If an error is detected 
in the list* the rest of the list will be flushed 
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i) GCet. 

Loads the designated file into the work-Pile. 

The entire file specification is not necessary. If the volume ID is 
not given/ the default disk is ^szime-d. Wildcards ars not allowed* 
and the size specification option is ignored. 

Qiven the example directory: 

FILERD0C2. TEXT 
A. OUT. CODE 
F5. TEXT 
ABSURD. TEXT 
HYTYPER. CODE 
STASIS. TEXT 
LETTER 1. TEXT 
A8SEM. DOC. TEXT 
FILER. DOC. TEXT 
STASIS. CODE 



EXAMPLE: 



Prompt: Qet what file? 

Response: STASIS 

The Filer responds yjith the message 

'Text and Code file loaded 1 ' 

since both text Bn4 code file exist. Had the user typed 
'STASIS. TEXT f or 'STASIS. CODE ', the result would have been the 
same - both text and code versions would have been loaded. In 
the event that only one of the versions exists* as in the case 
of A. OUT* then that version would be loaded* regardless of 
whether text or code was requested Typing 'A. OUT. TEXT' in 
response to the prompt would generate the message: 'Code file 
loaded '. 
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2) SCave 

Saves the workfile under the filename specified by the user. 

The entire file specification is not necessary. If the volume ID is 
not given* the default disk is assumed Wildcards are net allowed* 
and the size specification option is ignored. 

EXAMPLE: 

Prompt; Save as what file"? 

Response: Type a filename of 10 or less characters/ observing 
the filename conventions in section 1 2. 4 'FILES' . This 
causes the FILER to automatically remove any old file having 
the given name* and to save the uiork.fi le under that name. For 
example, typing "X"ir\ response to the prompt causes the 
workfile to be saved on the default disk as X. TEXT. If a 
cod ©file has been compiled since the last update of the 
workfile.- that -code-file mill be saved as X CODE. 

The FILER automatically appends the suf fixes ■. TEXT and CODE to 
files of the appropriate type. Explicitly typing AFILE. TEXT in 
response to the prompt will cause the FILER to save this file 
as AFILE. TEXT. TEXT . Any illegal characters in the filename 
will be ignored? with the exception of ': ', If the file 
specification includes volume id. the Filer assumes that the 
user wishes to save the workfile on another volume. For 
example* typing; 
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RED: EYE 

in response to 'Save as what file?' will generate 

Prompt: Would you like EYE. TEXT written to RED: ? 

RED: EYE constitutes a file spec if ication* and a 'Y' answer to 
this prompt will cause the Filer to attempt a transfer of the 
workfile to the specified volume and file, (see section 
1, 2. 5. 11 T(ransfer, ) 



3) NCeui 

Clears the workspace (workfile). 

No file specifications allowed. 

If there is already a workfile present* the user is prompted: 

Prompt: Throw away current workfile? 

Response: 'Y' will clear the workfile while 'N' returns the 
user to the outer level of the FILER. 

If <workfile name>. BACK exists* then the user is prompted: 

Prompt: Remove <workfile name>. BACK ? 

4) CMuit 

Returns the user to the outermost command level. 
No file specification allowed. 

5) WChat 

Identifies the name and state (saved or not) of the workfile. 
No f i 1 e specification all owe d . 

6) V( Glumes 

Lists volumes currently on-line* with their associated unit 
(device) n\3mh®T%. 
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No file specification allowed 
A typical display would be: 



V 


olumes on— line: 




1 




CONSOLE: 




2 




SYSTERM: 




3 




GRAPHIC: 




4 


# 


MYDISK: 




6 




PRINTER: 




8 




REMOTE: 




9 


# 


BIG: 


p 


refix is - MYBISK: 



The system or "boot-disk" volume's name i=> preceeded by a '*'. 

The system volume is the default volume unless the prefix (see 
P(refix) has been changed Block-structured devices art* indicated 
by '*' or '#'. 



7) L<dir 



Lists a disk directory, or some subset thereof* to the volume and 
file specified (default is CONSOLE:), 

The user may list any subset of the directory* using the 'wildcard' 
option^ and may also write the directory, or any subset thereof, to 
a volume or filename other than CONSOLE, File specification will 
therefore be- discussed in terms of source file specification and 
destination file specification. 

Source file specification consists of a mandatory volume ID* and 
optional subset-specifying strings* which may be empty If subset- 
specifying strings ars used* then one of the wildcard characters 
must be used. A string, (for example* the full filename 
STASIS. TEXT) may not be ur>&d as part of the source file 
specification unless a wildcard character is used! 

Source file information is separated from destination file 
information by a comma < '* '). 

Destination file specification consists of a volume ID* and* if the 
volume is a block-structured device* a filename. File size 
specifications will be ignored. 

The most frequent use of this command is to list the entire directory 
of a volume. The following display* which represents a complete 
directory listing for the example disk MYDISK* would be generated 
by typing any valid volume ID for MYDISK (see Figure 2) in response 
to the prompt* 
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28 


1- 


-Sep- 


-78 


10 


1- 


-Sep- 


-78 


8 


1- 


-Sep- 


-78 


4 


1- 


-Sep- 


-78 


12 


1- 


-Sep- 


-78 


8 


1- 


-Sep- 


-78 


18 


1- 


-Sep- 


-78 


20 


1- 


-Sep- 


-78 


24 


1- 


-Sep- 


-78 


6 


1" 


-Sep- 


-78 



Dir listing of what vol 

MYDISK: 

FXLERD0C2. TEXT 

A. OUT CODE 

F5. TEXT 

ABSURD 

HYTYPER. CODE 

STASIS TEXT 

LETTER 1. TEXT 

ASSEMDOC. TEXT 

FILERD0C1. TEXT 

STASIS. CODE 

10/10 files <listed/in~dir>, 130 blocks used/ 364 unused 

(The bottom line of the display informs the user that 10 files out 
of 10 files on the disk have been listedi that 130 disk blocks 
have been usedi and that 364 disk blocks remain unused. ) 

EXAMPLE: 

LCdir transaction involving wildcards: 

Prompt: Dir listing of uihat vol ? 

User response: #4: FXL-TEXT 

generates the following display: 

MYDISK: 

FILERD0C2. TEXT 28 l-Sep-78 

FILERD0C1. TEXT 24 l-Sep-78 

2/10 files <listed/in~dir>i 52 blocks used, 364 unused 



EXAMPLE 



LCdir transaction involving writing the directory subset to a 
device other than CONSOLE: 

Prompt: Dir listing of what vol ? 

User response: *FIL*TEXT* PRINTER: causes 

MYDISK: 

FILERD0C2. TEXT 28 l~Sep~78 

FILERD0C1. TEXT 24 1-Sep~78 

2/10 files CIisted/in~dir>* 52 blocks used. 364 unused 

to be. wsUttm to the, VnlnteA. 
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EXAMPLE: 



L(dir transaction involving writing' 'the directory subset to a 
block-structured device: 

Prompt: Dir listing of uihat vol ? 

User response: #4: FIL-TEXT, #5: TRASH creates the file TRASH on 
the volume associated with unit 5. TRASH would contain: 

MY&-ISK: 

FILERD0C2. TEXT 28 i~Sep~7S 

FILERDOC1. TEXT 24 1-Sep~78 

2/10 files <listed/in~dir>, 52 blocks used. 364 unused 



8) E(xtended list 



Lists the directory in more detail than the L (dir command. 

All files ar\6 unused areas are listed along with <in this order) 
their block length/ last modification date, the starting block 
address, the number of bytes in the last block of the file, and the 
filekind All wildcard options and prompts are as in the L<dir 

command. An example display is shown below. 



MYDISK: 












FILERDQC2. TEXT 


28 


a >iih <T7 i& »n —* *"** £"* 


6 


512 


Tex tf lie 


A. OUT. CODE 


10 


i ~Sep~~7S 


34 


5.12 


Oodef i 1© 


F5. TEXT 


3 


1 -Sep -78 


.44 


512 


Tex tf i le 


<UNUSED> 


io 




52 






ABSURD 


4 


1 -Sep -78 


62 


512 


Da t a f i 1 e 


HYTYPER. CODE 


12 


l-Sep-79 


oo 


512 


Codefile 


STASIS TEXT 


8 


1 -Sep -78 


78 


512 


Textf ile 


LETTER 1. TEXT 


18 


1 -Sep -78 


36 


512 


Textf i ie 


ASSEMDGC. TEXT 


20 


l-Sep-78 


104 


512 


Text file 


FILERDOC1. TEXT 


24 


1 -Sep -78 


124 


512 


Tex tf i le 


STASIS. CODE 


6 


1 -Sep -78 


1*9 


512 


Codef i le 


<UNU9ED> 


354 




1 54 






10/10 files Clis 


ted /in- 


-dir># 130 


blocks 


used, 364 


unused, 354 in largest 



area 



?) C<hange 



Changes file or volume name. 

This command requires two file specifications. The first of these 
specifies the file to be changed, the second, to what it will be 
changed. The first specification is separated from the second 
specification by either a Oet> or a comma (', '). Any volume ID 
information in the second file specification is ignored, since 
obviously the 'old file' and the 'new file' are on the same volume! 
Size specification information is ignored. 
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Given the example file F5. TEXT, residing on the volume occupying unit 5: 

Prompt : Change what file? 

User Response: #5: F5. TEXT, HOOHAH 

changes the name in the directory from 'F5. TEXT' to 'HOOHAH'. 
Although filekinds are originally determined by the filename, 
the C(hange command does not affect the filekind. In the above 
case, HOOHAH uiould still be a text file. However, since the 
G(et command searches for the suffix '. TEXT' in order to load a 
text file into the workfile, HOOHAH would need to be renamed 
HOOHAH. TEXT in order to be loaded into the workfile. 

Wildcard specifications are legal in the CChange command. If a 
wildcard character is used in the first file specification, then a 
wildcard must be used in the second file specification. The subset- 
specifying strings in the first file specification are replaced by 
the analogous strings (henceforward called replacement strings) 
given in the second file specification. The Filer will not change 
the filename if the change would have the effect of making the 
filename too long (>15 characters). Given a directory of example disk 
NOTSANE: containing the files: 

POEMS. TEXT 
MAUNDER. TEXT 
MALPRACTICE 
MAKELISTS. TEXT 

EXAMPLE: 

Prompt : Change what file? 

User response: NOTSANE: MA^TEXT, XX=GAACK 
causes the Filer to report 

NOTSANE: MAUNDER. TEXT changed to XXUNDER. GAACK 
NOTSANE; MAKELISTS. TEXT changed to XXKELISTS. GAACK 
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The subset-specifying strings may be empty* as may the replacement 
strings. The Filer considers the file specification '»■' (where both 
subset-specifying strings are empty) to specify every file on the 
disk. Responding to the CChsnge prompt with *—tZ~Z' would cause every 
filename on the disk to have a 'Z' added at front and back. 
Responding to the prompt with 'Z=Z>~' would replace each terminal 
and initial 'Z* with nothing., Given the filenames: 

THIS. TEXT 
THAT. TEXT 

EXAMPLE: 

Prompt : Change what file? 

Us er Response: T~T» -• 

The result would be to change 'THIS. TEXT' to 'HIS. TEX', 
and 'THAT. TEXT' to 'HAT. TEX'. 

The volume name may also be changed by specifying a volume ID 
to be changed* and a volume ID to change to. 

EXAMPLE: 

Prompt : Change what file? 

User Response: NQTSANE , WRKDISK; 

generates the message* NQTSANE;- changed to WRKDISK: 

LO) RCemove 

Removes file entries from the directory. 

This command requires one file specification for %ach file the user 
wishes to remove. teildcartiz are legal. Size specification 
information is ignored. Given the example fil&s <a^zumir>g that they 
avB on the default volume): 

AARDVARK. TEXT 
ANDROID. CODE 
GUI .NT. TEXT 
AMAZING. CODE 

iXAMPLE: 



P r omp t ; Remove wh at file? 

Vzvr Response: AMAZING. CODE 

removes the file AMAZING. CODE from the volume directory Note 
To remove SYSTEM. WRK. TEXT and/or SYSTEM. WRK. CODE the N(ew 
command should be used* or the system may get confused. 
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As noted before* wildcard removes av& legal. 
EXAMPLE: 

Prompt: Remove what file? 
U ■% er Response : A«C ODE 

causes, the Filer to remove AMAZING, CODE and ANDROID, CODE. 

WARNING: Remember that the Filer considers the file 
specification '«' (where both subset" specifying strings are 
empty) to specify every file on the volume. Typing an '«' alone 
will cause the Filer to remove every file on your directory!! 
Fortunately< before finalizing any wildcard removes, the Filer 
p r Qt-np t s the user ui i t h 

Prompt: Update directory? 

Rs^ponss: Y ' causes all specified files to be removed. 'N' 
returns the user to the outer- level of the Filer without any 

removes having occurred. 

11) T<r snsf er 

Copies the specified file to the given destination. 

This command requires the user to type two file specifications* one 
for the source file, and one for the destination file* separated 
with either a comma or <ret>. Wildcards are permitted* and size 
specification information is recognized for the destination file. 

Assume that the user wishes to transfer the file FARKLE. TEXT 
from trie disk MYBI3K to the disk BACKUP. 

EXAMPLE: 

Prompt: Transfer u* hat file? 

U qer Response: MYD I SK : FARKLE TEX T 
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Prompt: To where? 

(Note: On a one-drive machine* do NOT remove your source disk 
until you are prompted to insert the destination disk) 

User Response: BACKUP: NAME. TEXT 

Prompt: Put in BACKUP: 

Type <Ispace> to continue 

The user should remove the source disk/ insert the destination 
disk and type a <space>. The Filer then notifies the user: 

MYDISK: FARKLE. TEXT transferred to BACKUP : NAME. TEXT 

The Filer has made a copy of FARKLE and has written it to the 
disk BACKUP giving it the name NAME. TEXT. If the specified 
file is large/ the user may be prompted to alternately insert 
the source and destination disks until the transfer is 
completed. 

It is often convenient to transfer a file without changing the name/ 
and without retyping the file name. The Filer enables the user to 
do this by allowing the character '%' to replace the filename in the 
destination file specification. In the above example, had the user 
wished to save the file FARKLE. TEXT on BACKUP under the name 
FARKLE. TEXT/ she could have typed: 

MYDISK: FARKLE. TEXT/ BACKUP : * 

WARNING: Please try to avoid typing the second file specification 
with the filename completely omitted! For example/ a response to the 
Transfer prompt of the form: 

MYDISK: FARKLE. TEXT/ BACKUP: 

generates the message: 

Possibly destroy directory of BACKUP: ? 

'Y' answer causes the directory of BACKUP to be wiped out! 

Files may be transferred to volumes that av^ not block structured/ 
such as CONSOLE: and PRINTER:* by specifying the appropriate volume 
ID (see Figure 1) in the destination file specification. A file 
name on a non- block-structured device is ignored. It is generally 
a good idea to make certain that the destination volumeis on-line. 
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EXAMPLE: 



Prompt: Transfer what file? 

U%&r Response: FARKLE. TEXT 

Prompt: To where? 

User Response: PRINTER: 

causes FARKLE. TEXT to be written to the printer. 

The user may also transfer from non-block-structured devices* 
providing they are input devices. Filenames accompanying a non- 
block-structured device ID are ignored. 
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on the volume. 



Qiv&n the volume MYDISK containing the files PAUCITY, PARITY and 
PENALTY, and the destination ODDNAMZ: 



F r o m p t : T r- a n s f e r w hat file? 
y S er Response: P«TY, QBDNAMZ: V=S 
would cause the Filer to reply: 



MYDISK: PAUCITY 
MYDISK: PARITY 
MYDISK: PENALTY 



transferred to ODDNAMZ: VAUCIS 
transferred to ODDNAMZ: VAR IS 
transferred to ODDNAMZ: VENALS 



U sing 



as the source filename specification will cause the Filer 



to attempt to transfer every file on the disk. This will probably 
overflow the output buffer. < There are easier ways to transfer 
whole disks. If you wish to do this* please refer to the material 
ir\ this section on volume- to- volume transfers. > 
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Using '«' as the destination filename specification will have the 
effect of replacing the subset-specifying strings in the source 
specification with nothing. A brief reminder: '?' may be used in 
place of '«'. The only difference is that '?' causes the user to be 
asked for verification before the operation is performed. 

A file can be transferred from a volume to the same volume by 
specifying the same volume ID for both source and destination file 
specifications. This is frequently useful when the user wishes to 
relocate a file on the disk. Specifying the number of blocks 
desired will cause the Filer to copy the file in the first- /^ 

arsa of at least that size. If no size specification is 
given* the file is written in the largest unused area. 

If the user specifies the same filename for both source and 
destination on a same-disk transfer* then the Filer rewrites the 
file to the size-specified area, and removes the older copy, 

EXAMPLE: 

Prompt: Transfer what file? 

User Response: #4: QUIZZES. TEXT, #4: QUIZZES. TEXTC203 

causes the Filer to rewrite QUIZZES. TEXT in the first 20-block 
area encountered (counting up from block O) and to remove the 
previous version of QUIZZES. TEXT. 

WARNING: Wildcard-type specifications do not always work very well 
on same-disk transfers. The results tend to be unpredictable/ so 
these operations av& not recommended. 

It is also possible to do entire vaiume~to~voiume transfers. The 
file specifications for both source and destination should consist 
of volume ID only. Transferring a fe lac k structured volume to 
another block- structured volume causes the destination volume to be 
'wiped out' so that it becomes an exact copy of the source volume. 

Assume that the user desires an extra copy of the disk MYDISK: and 
is willing to sacrifice disk EXTRA: 

EXAMPLE: 

Prompt. Transfer what file? 

User Response: MYDISK: , EXTRA: 

Prompt: Possibly destroy directory of EXTRA: ? 
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WARNING: There's no 'possibly' about this! If the user types 
'Y'» the directory of EXTRA: will be destroyed! An 'N' 
response will return the user to the outer level of the Filer* 
and a 'Y' mill cause EXTRA to become an exact copy of MYDISK. 
Often this is desirable for backup purposes* since it is 
relatively easy to copy a disk this way* and the volume name 
can be changed (see C<hng) if desired. 

Although it is certainly possible to transfer a volume (disk) to 
another using a single disk-drive, it is a fairly tedious process* 
since the in-core transfer reads up the information in rather small 
chunks* and a great deal of disk juggling is necessary for the 
complete transfer to take place. 

12) DCate 

Lists current system date* and enables the user to change the date. 

Prompt: Date Set: Ci. . 31XJAN. . . DEC>~< COO. . 99> OR <CR> 
Today is 19~Aug~7Q 
New date? 

The user may enter the correct date in the format given. After 
typing <ret>* the new date will be displayed. Typing only a return 

does not affect the current date. The hyphens are delimiters for 
the day* month and year fields* and it is possible to affect only 
one or two of these fields. For example* the year could be changed 
by typing ' — 79'* the month by typing '-Sep'* etc. The entire month- 
name can be entered* but will be truncated by the Filer. Slash 
('/') is also acceptable as a delimiter. The most common input will 
he a single numberi which will be interpreted as a new day For 
example, if yesterday was the 19th of August, the user would want to 
type D20<ret>* uihich would have the desired effect of changing the 
date to the 20th of August. The day-month-year order is inviolate* 
however. 

This date will be associated with $nt£ files saved during the current 
session and will be the date displayed for those files when the 
directory is listed. 



P<refi.x 

Changes the current default to the volume specified. 

This command requires the user to type a volume ID. An entire file 
specification may be entered, hut only the volume ID will be used, 
It is not necessary for the specified volume to be on-line. 
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To determine the current default volume/ the user may respond to the 
prompt with ': ' . 

14) BCad blocks 

Scans the disk and detects bad blocks. 

This command requires the user to type a volume ID. The specified 
volume must be on-line. 

Prompt: Bad blocks scan of what vol? 

Response: <volume ID> 

Checks each block on the indicated volume for errors and lists 
the number of each bad block. Bad blocks can often be fixed or 
marked (see eX(amine). 

15) eXCamine 

Attempts to physically recover suspected bad blocks. 

This command requires the user to type a volume ID. The volume must 
be on- line. 

EXAMPLE: 

Prompt : Examine blocks on what volume? 

Response : Cvolume ID> generates the 

Prompt: Block number-range ? 

The user should have just don© a bad block scan* and should 
enter the block numberCs) returned by the bad block scan. If 
any files are endangered.* the following prompt should appear: 

Prompt: File<s) endanqsr&d: 

Try to fix them? 

Response: 'Y' will cause the FILER to examine the blocks and 
return either of the messages: 

Block <block-riumber> m&\$ he ok 
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in which case the bad block has probably been fixed* or 

Block <"block~number> is bad 

in which case the FILER will offer the user the option of 
marking the block(s) BAD. Blocks which are marked BAD will 
not be shifted during a K(runch* and will be rendered 
effectively harmless. 

An 'N' response to the 'fix them?' prompt returns the user to 
the outer level of the FILER. 

WARNING: A block which is 'fixed' may contain garbage. 'May be 
ok' should be translated as 'is probably physically ok'. 
Fixing a block means that the block is read* is written back 
out to the block and is. read again. If the two reads are the 
same* the message is 'may be ok '. In the event that the reads 
are different* the block is declared bad ami may be marked as 
such if so desired. 



ih) K(runch 

Moves the files on the specified volume so that unused blocks are 
combined at the f »rt6 f of the disk, 

This command requires the user to type a volume ID. The specified 
volume must be on-line. It is strongly recommended that the user 
perform a bad block scan of the volume before ^Crunching in order to 
avoid writing files ov^r bad areas of the disk. If bad blocks are 
encountered* they must be either fixed or marked before the K<runch 
(see eX< amine)., 

As each file is moved/ its name is reported to the console. If 

SYSTEM. PASCAL, is moved, the system must be reinitialized by 
bootstrapping. Do not touch the disk* the. boot— switch or the disk- 
drive door until K Crunch tells you it has completed its task. 

EXAMPLE: 

Prompt : Crunch what vol? 

Response : <volume I0> 

causes Filer to prompt with: 

Prompt : Are you sure you want to crunch <voI ume ID>? 
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Response: 'Y' initiates the &.<runch. Typing an 'N' will return 
the user to the outer level of the FILER. 



17) MCake 

Creates a directory entry -with the specified filename. 

This command requires the user to type a file specification. 
Wildcard characters are not allowed. The file size specification 
option is extremely helpful* since* if it is omitted* the Filer 
creates the specified file hy consuming the largest unused area of 

the disk. The rile size i & determined by following the filename 
with the desired number of blocks* enclosed in square brackets 

'£>-' an4 '3', ' Borne special cases are: 

C01 - equivalent to omitting the size specification. The file is 
created in the largest unused ar®a. 

C*3 - the file is created in the second largest areat or half the 
largest area, whichever is larger, 

EXAMPLE: 

Prompt : Hake what file? 

Response : HYDISK: FARKLE. TEXTC233 

Creates the file FARKLE. TEXT on the volume MVDISK: in the first 
unused 28~blacfc area encountered. 



IS) Kero 

Reformats the specified volume. The previous directory is rendered 
irretr ievab le. 

EXAMPLE: 

Prompt: Zero dir of uihat vol ? 

Response: <volume 1D> 

Prompt"; Destroy <volume name> ? 

Response: A 'V' response generates 
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Prompts Duplicate dir ? 

Responses If a 'Y*' is typed* then a duplicate directory will be 
maintained. This is advisable because? in the event that the 
disk directory is destroyed? a utility program called COPYDUPDIR 
can use the duplicate directory to restore the disk. 

Prompts <current number of blocks on disk> blocks ? 

Responses 'N' generates 

Prompts # of blocks ? 

Responses User will type number oiF blocks desired 
(usually the maximum permitted for the system's disk 
recording density* 170 for single-density* 340 for 
double-density* and 690 for «iuad-capacitY) . Filer 
proceeds with sequence below. 

'Y*' generates 

Prompts New vol name ? 

Responses User types any valid volume name. 

Prompts <new volume name> correct ? 

Responses 'V causes the Filer to respond with the messages 

<new volume name> zeroed 
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**#*-4Ht********tt ft********** **###«*#■*#«*-«■*###"»• 
* SCREEN ORIENTED EDITOR * * Section 1.3. 1 * 

Version I. 5 September 1978 

This introduction* which describes the idea behind the Editori 
is the first of four sections. The second section is a tutorial for 
the novice. While the Editor is designed to handle any files* the 
tutorial section uses a sample program to demonstrate how to use the 
most basic commands to modify a file. The third section contains a 
detailed description of each commandi with exaraplesi and the fourth is 
for quick reference. 

THE CONCEPT OF A 'WINDOW INTO THE FILE 

The Screen Oriented Editor is specifically designed for use 
with Video Display Terminals. On entering any file> the Editor 
displays the start of the file in the upper left hand corner of the 
screen, If the file is too long for the screen* only the first portion 
is displayed This is fche concept of a 'window'. The whole file is 
there and is accessible by Editor commands* but only a portion of it 
can be seen through the 'window' of the screen. When any Editor 
command takes the user to a position in the file which is not 
displayed* the "window" is updated to show that portion of the file . 

THE CONCEPT OF A CURSOR 

7h& cursor represents the exact position in the file and can be 
used to move to any position, The window shows that portion of the 
file near the cursor. To see another portion of the file* move the 
cursor. Action always takes place at the cursor. Some of the commands 

permit additions* changes or deletions of such length that the screen 
cannot hold the whole portion of the text that has been changed. In 
those cases* the portion of the screen where the cursor stopped is 
displayed. In no case is it necessary for the u^er to operate on 

portions of the text not seen on the screen* but in some cases it is 
optional. 

THE CONCEPT OF A PROMPT LINE 

The Editor displays a prompt line as the top line of the screen 
in order to remind the user of the current mode and the options 
available for that mode. Only the most commonly used options appear on 
the prompt line as the following display shows: 

>Edit: ACdjust C«py D<lste FCind Knsrt J(mp Rplace Q<uit X<chng Z(ap CE.6 

NOTATION 

Th& notation used in this section corresponds to the notation 
used to prompt the user in the editor. Any input that is enclosed 
between a < and > is requesting that a particular key be used* not that 
the particular word be typed out. For example* <RET> means that the 
return key should typed afc that point. When a particular sequence of 
key strokes is required they will be contained within quotes. For 
example, "FILENAME"* CRET> refers to the typed sequence "FILENAME" 
followed by typing the return key. Lower or upper case may be used 
wh en t y p i n g Ed i t or c omman d s .. 

n> ^ « -» 01 



* GETTING STARTED * * Section 1.3,2 * 

###*#####•##*•*•##•*■*## 4HHt It****"**-******* 

ENTERING THE VJORKFILE AND GETTING A PROGRAM, 

On entering the Editor : 

No workfile is present. File? ( <ret> for no file ) appears, 

There avs two ways to answer this question : 

1) With a name, for example "STRING1 <ret>". The file named 
STRING1 will now be retrieved The file STRING1 could contain a 
program, also called 3TRING1, as in Fig. 2. 1. After typing the name* a 
copy of the text of the first part of the file appears on the screen. 
Figure 2. i 

PROGRAM STRING!; 
BEGIN 

WRITE ( TOO WISE'); 

WRITE< "YOU ARE'); 

WRITELN( '/ '), 

WRITELN( 'TOO WISE'); 

WRITELN< 'YOU BE' ) 
END. 

2.) With a Oeturn>. This implies that a new file is to he- 
started. The only thing visible on the screen after doing this is the 
editor prompt line. A new workfile is opened and currently has nothing 
in it. Type "I" to begin inserting a program or text. 

Workfiles: Mo questions are asked if a workfile already 
exists. The workfil? is displayed and can be modified or can be 
cleared, in order to start a file, by using the N)ew command in the 
Filer. 
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MOVING THE CURSOR 



In order to edit* it is necessary to move the cursor. On the 
keyboard are four keys with arrows* (which may look like triangles)* 
which move the cursor. The Cup~arrow> moves the cursor up one line* the 
<right-~arrow> moves the cursor right one space and so forth. 

The cursor does not like to be outside of the text of the 
program, For example* after the "N" in "BEGIN" in Fig. 2.2 , push 
the <right~arrow> and the cursor moves to the "W" in "WRITE". 
Similarly at the "W" in H WRITE< 'TOO WISE ')*"* use Clef t~arrow> to move 
to after the "N M in "BEGIN". 



Figure 2. 2 

BEGIN_ 

WRITE< 'TOO WISE ')* 

BEGIN 

WRITE < 'TOO WISE '), 



If it is necessary to change the "WRITE( 'TOO WISE ')*" found in 
the third line to a "WRITEC 'TOO SMART / >*", the cursor must first be 
moved to the right spot. 

For example: if the cursor is at the "P" in "PROGRAM STRING1* "* 
go down two lines bij pressing the down arrow 2 times. To mark the 
positions the cursor occupies* labels a* b» c are used in Fig. 2.3. "a" 
is the initial position of the cursor; "b" is where the cursor is after 
the first <down~-arrow>* "c"* after the second <down~arrow>. 

Figure 2. 3 

aRQGRAM STRING 1 

bEGIN 

c WRITE < 'TOO WISE ' > ,- 

Now* using the right arrow* move until the cursor sits on the 
"W" of "WISE". Note that with the use of <down~arrow> the cursor 
appears to be outside the text. Actually it is at the "W" in "WRITE", 
so do not be surprised when on typing the first <lef t-arrow> the cursor 
jumps to the "R" in "WRITE". 

USING INSERT 

The Edit level prompt line shows that to Knsrt (insert) an 
item* type "I". The cursor must be in the correct position before 
typing "I". Earlier* the cursor was moved to the "W" in "TOO WISE"* 
now* on taping "I"*- an insertion will be mads before the "W". The rest 
of the line from the point of insertion will be moved to the right hand 
side of the screen. In the event that the insertion is lengthy* that 
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part of the line will be moved down to a 11 qui room on the screen. After 
typing "I" the following prompt line should appear on the screen: 

>Insert: text «bs> a char><del> a line> C<etx> accepts, <esc> escapes] 

If that prompt line did not appear at the top of the screen it 
is NOT insert mode and a wrong key may have hzen typed. 

If the cursor is at the "W"i and on typing "I" the insert 
prompt line appeared* "SMART" may be inserted by typing those five 
letters They will appear on the screen as they are typed. 

There remains one mare important step The choice at the end 
of the prompt I ins indicates that pushing the <etx> key accepts the 
insertion/ while pushing the <esc> key rejects the insertion and the 

text remains as it was before typing S *I".. 

Figure 2.4- (Screen after typing "SMART") 

BEGIN WRITE< 'TOO SMART WISE '); 



Figure 2. 5 (Screen after <etx>) 



BEGIN 

WR I T £ ( ' TOO SMARTW I SE ' ) ; 



Figure 2. 6 (Screen after <esc>) 

BEQIN 

WRITEC 'TOO WISE '}, 



It is legal to insert a tart i^ys return This is done by 
typing <return> while in the INSERT mode and causes the Editor to start 
a new line. 

USING DELETE 

The DELETE mode works like the INSERT mode. Having inserted 
the 'SMART' into the STRING! program and having pushed <etx>* 'WISE/ 
must he deleted. Move the cursor to the first of the items to delete 
and type "D" to put the Editor into DELETE mode. The following prompt 

line should appear: 

>DeIete: -C > -CMoving command s> -C<etx> to delete* <esc> to abort> 

Each time <space> is typed a letter disappears. In this 
example typing 4 spaces will cause "WISE" to disappear. Now the same 
choice must be made as in insert. Type <etx> and the proposed deletion 
is made or type <esc> and the proposed deletion reappears and remains 
part of the text. 
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It is legal to deist© a carriage return. At the end of the 
lir»ei enter DELETE mode, and <space> until the cursor moves to the 
beginning of the next line. 

These are sufficient commands to edit any file desired. The 
next section describes many more commands in the Editor which make 
editing easier. 

LEAVING THE EDITOR AND UPDATING THE WGRKFILE 

When all the changes and additions have been made* exit the 
Editor and "save" a copy of the modified program. This is done by 
typing "Q" which will cav%& the prompting display shown in Fig. 2.7. 

Figure 2. 7 

>Guiti 

U(pdate the uiorkfile and leave 
E(xit without updating 

R<eturn to the editor without updating 
ycrite to a file name and return 

The most elementary way to save a copy of the modified file on 
disk is to type "U" for UCpdate which causes the workfile to be saved 
as SY3TEH k'RK, TEXT. With the workfile thus saved* it is possible to 
use the R(un command, provided of course the file is a program. It is 
also possible to use the SCave option in the Filer to save the modified 
file in the library before using the Editor to modify or create another 
file. 

Miscellaneous commands* in the next section, explains in 
greater detail the options available at >Quit. 
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* DETAILED DESCRIPTION OF COMMANDS * # Section 1.3.3 *. 



COMMAND AND MODE 

A t the 
referred to as 
of the prompt 



■dit l«v#»3 there are menu options- same of which are 
ommands and some as modes depending uvan the mpp&aTance 
If an option executes a task and returns control to the 



Edit level* that option is called a cvmm&nd, If an option issues a 

prompt and gives the user another level of options* it is called a 

mode. On entering or returning to the Edit level* the Editor redisplays 
the "Edit:" prompt line. 

REPEAT -FACTORS 

Many of the commands allow repeat-factors. A repeat-factor is 
applied to a command by typing a number immediately before issuing the 
command which is then repeated for the number. -of times indicated by the 
repeat-factor. For example: typing "2 <down~arrow>" will cause the 
<d'3wn~arrow> cojTunmand to be executed turice.- moving. th« cursor down tu/o 
lines Commands which allow a repeat- factor assume the repeat-factor 
to be 1 if no number is typed before the command. A '/' typed before 
the command implies an infinite number. 

THE CURSOR 

It should be pointed out that the cursor is r\BVBT really "at" a 
character. The cursor is only allowed to he "between" characters. For 

instance, if the cursor looks *s though it is at the letter "R'V it is 
actually between the letter "R" and the Jotter in front of it. This is 
noticed most clearly en the insert corrrmand as it inserts in front of 
the character the cursor was "at". On the screen the cursor is placed 
"at" "R" to make it easier to display 

DIRECTION 



Cbt tain commands are affected by direc 
forward/ than they opo: 3to Pcru-^rd t*'.?' o^^h t h » 
standard direction of reading English. B^cku/a 
direction. When direction affects the command 
noted. 



ion, If the direction is 

■T-.le. *: h .%. *- h 



it 



eing r 
is the reverse 

is specifically 



MOVING COMMANDS 



Cdown-arrotiC- 
<up~arrow> 
<r igh t~arrow> 
<lef t-arr ow> 
"<" or ", " or 
•*' >" or S! , •" or 
<space> 
<back-space> 
< f a b y 

Oeturn> 



Moves douin 

Moves up 

Moves right 

Moves left 

Changes the direction to backward 

Changes the direction to forward 

Moves direction 

Moves left 

Moves direction to the next position which is a multiple 

of 8 spaces from the left side of the screen 
Moves to the beginning of the next line 
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indicates direction; "<" for backward and M >" for forward. On entering 
the Editor* the direction is forward. The direction can be changed 
by typing the appropriate command whenever the "Edit:" prompt line is 
present. The period and the comma csn also be used because on many 
standard keyboards, ;! 8J is lower-case for ">" and ", " is the lower- 
case for "<". 

Repeat-factors can be used with any of the above commands. 

For user convenience, the Editor maintains the column position 
of the cursor when using <up-arrow> and <down-arroui>. When the cursor 
is outside the text, the Editor treats the cursor as though it were 
immediately after the last character, or before the first, in the line. 

JUMP 

JUMP mode is reached by typing "J" for J(mp while at the Edit 
level. On entering JUMP moae the following prompt line appears: 

> JUMP : B'eginning &(r\d M < ar k er <e s c > 

Taping "B" (or "G") moves the cut sot to the beginning (or the 

end i of the file? displays the edit prompt line and the first (or last) 

pag*? of the file. Typing "M" causes the Editor to display the prompt 
line; 

J u in p to what ma r k er? 

The name of the marker must be entered followed by a -CreturnX 
The Editor will then move the cursor to the place in the file with that 

name.. If the marker is not in the file the Editor will display: 

ERROR: Marker not there. Please press -Cspace bar> to continue. 

T he ins t v u c t i o n s f o r % e t 1 i n g a *t»a rker a r' e detailed in SET under 
Miscellaneous c omman d % 

PAGE 

PAGE command is executed by typing "P" while at the Edit 
level. Depending on the direction of the arrow at the beginning of the 
prompt line* PAGE command moves the cursor one whole screenful up or 
dou«n. The cursor alumny* moves to the start of the line. A -Crepeat- 
factor> may be used before this command for moving several pages. 

EQU-'-M fg 

EQUALS cowi!sa:iti is executed by typing "-" while at the Edit 
level. It causes the cursor to jump to the beginning of the last 
section of text which was inserted* found or replaced from anywhere in 
the file. Equals works from anywhere In the file and is not direction 
sensitive. An INSERT* FIND or REPLACE cause the absolute position of 
the beginning of the insertion, find or replacement to be saved. 
Typing "-" causes the cursor to jump to that position. If a copy or a 
deletion has been made between the beginning of the file and that 
absolute position* the cursor will not jump to the start of the 
insertion as that absolute position will no longer be correct. 
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TEXT CHANQINO COMMANDS 

INSERT 

INSERT mode is reached by typing "I" far "Knsrt" while at the 
Edit level. On entering INSERT mode the following prompt line appears: 

>Xnsert: Text «bs> a char*<del> a line> C<etx> accepts* <esc> escapes! 

One of the options here is to type in text followed by <esc> or 
<ets>. It is possible to delete a character without leaving the INSERT 
mode by back-spacing over it. To delete the entire line just typed/ 
type <del>. The INSERT prompt line indicates these by "<bs> a char" 
and "<del> a line". 

Typing <return> INSERT starts a new line at the level of 

indentation specified by the options turned on in Environment section 

of the SET mode. See the section on the SET mode in order to set these 
options. 

AUTO- INDENT 

If Auto-indent is True, a <return> causes the cursor to start 
the next line with an indentation equal to the indentation of the line 
above. If Auto-indent is False, a <return> returns the cursor to the 
first position in the nest line. Note: if Filling is True, the first 
position is the Left-margin. 

FILLING 

If Filling is True? the Editor for-f^s all insertions to be. 
between the right and left margins by automatically inserting 
<return> / s between "words" whenever the right margin would have been 
exceeded and by indenting to the Left-margin whenever a new line is 
started. The Editor considers anything between two spaces or between a 
space and a hyphen to be a word 

If both Auto-indent and Filling av& True* Auto-indent controls 
the Left-margin while Filling controls the Right-margin. The level of 
indentation may be changed by using the <space> and <backspace> keys 
immediately after a CreturnX Important: This can only be done 
immediately after a <return>. 

Example 1: With Auto-indent true, the following sequence 
creates the indentation shown in Figure 3. 1. 

"ONE'S Creturn>, <spsce>, <space>, "TWO"* 
<return>i "THREE", <return>> <backspace>* "FOUR" 

Figure 3. 1 

ONE Original indentation 

TWO Indentation changed by <spa'ce> <space> 

THREE <return> causes auto-indentation to level of line above 

FOUR <backspace> changes indentation from level of line above 
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Example 2: With Filling True (and Auto-indent False) the 
following sequence creates the indentation shown in Figure 3.2: 

"ONCE UPON A TIME THERE- WERE". 

(Very narrow margins have been used for simplicity. ) 

Figure 3. 2 



ONCE UPON A 
TIME THERE- 
WERE 



Auto-returned when next word would exceed margin 
Auto-returned at hyphen 



Level of left margin 



Filling also causes the Editor to adjust the margins on the 
portion of the paragraph following the insertion. Any line beginning 
with the Command character (see SET mode) is not touched when filling 
does this adjustment and that line is considered to terminate the 
paragraph. 



The direction does not affect the INSERT mode* 
by the direction of the arrow on the prompt line. 



but is indicated 



that insertion is 

if <esc> is usedi there 



If an insertion is made and accepted* 
available for use in the COPY mode. However* 
is no string available for COPY. 

DELETE 

DELETE mode is reached by typing "D" for "Ddete" while at the 
Edit level. On entering DELETE mode the following prompt line appears: 

>Delete: < > CMoving commands> -C<etx> to delete* , <esc> to abort) 

In order to delete* the cursor must be in position at the first 
character to be deleted. On typing "D" and entering DELETE* the 
Editor remembers where the cursor is. That position is called the 
anchor. As the cursor is moved from the anchor position using the 
normal moving commands, text in its path will disappear. To accept 
the deletion* type <etx>; to escape* type Cesc>. 



the Editor saves everything which was 
if Cesc> is typed* the copy buffer is 



When < e t x > is typed* 
deleted for COPY to use; but 
emp ty . 

Examp le: 

In Figure 3. 3: 

1) Move the cursor to the "E" in END. 

2) Type"<" (This changes the direction to backward) 

3) Type "D" to enter DELETE mode. 

4) Type <ret> <ret>. After the first return the cursor moves to 
before the "W M in WRITELN and "WRITELN( 'TO BE. '); "disappears. After 
the second return the cursor is before the "W" in WRITE and that 
line has disappeared. 

5) Now press <etx>. The program after deletion appears as is shown in 
Figure 3. 4. 
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The two deleted lines have been stored in the copy buffer and 

the cursor has returned to the anchor position. Now use the COPY 

routine to copy the two deleted lines at any place to which the cursor 
is moved. 



Figure 3. 3 

PROGRAM STRING2; 
DEGIN 

WRITE (/TOO WISE '>; 

WRITELNC 'TO BE. ') 
END. 



Figure 3. 4 



PROGRAM STRING2: 

BEGIN 

END. 



The <repeat-f actor> may also be used to delete several lines as 
once by prefacing a <return> or any other of the moving commands with a 
<repeat-factor> while in delete mode. 

ZAP 

The ZAP command is executed by typing "Z" for Z(ap while at the 
Edit level. This command deletes all text between the start of what 
was previously foundi replaced or inserted and the current position of 
the cursor. This command is designed to be used immediately after one 
of the FIND/ REPLACE or INSERT commands. If more than SO characters 
are being zapped the editor will ask for verification. 

Repeat-factors and Zap: If a FIND or a REPLACE is made with a 
repeat factor and then ZAP* only the last find or replacement will be 
zapped. All others will be left as found or replaced. 

Whatever was deleted by using the ZAP command is available for 
use with the COPY command. 



COPY 

The COPY command is executed by typing "C" for C(py while at 
the Edit level. 

On entering the Copy mode the following prompt line is 
d isplayed : 

>COPY: B(uffer F<ile <esc> 

To copy text from another file, type "F" and another prompt 
will appear: 
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>COPY: FROM WHAT F I LEC MARKER* MARKER 3? 

Any file may now be specified/ .text is assumed. In order to copy part 
of a file* two markers can be set to bracket the desired text. If 
C *marker!3 or Cmarker* 1 is used* the file will be copied from the 
start to the marker or from the marker to the end. On completion of 
the copy command (from file)» the cursor returns to the beginning of the 
text just copied from the file. Use of the copy command does not 
change the contents of the file being copied from. 

To copy the text in the copy buffer* type H B" and the Editor 
immediately copies the contents of the copy buffer into the file at the 
location of the cursor when "C" was typed. On the completion of the 
copy command the cursor returns to immediately before the text which 
was copied. Use of the copy command does not change the contents of 
the copy buffer. 

The copy buffer is affected by the following commands: 

1)DELETE: On accepting a deletion* the buffer is loaded with 
the deletion* on escaping from a deletion the buffer is loaded with 
what would have been deleted. 

2)INSERT: On accepting an insertion the buffer is loaded with 
the insertion* on escaping from an insertion the copy buffer is empty. 

3)ZAP: If the ZAP command is used the buffer is loaded with 
the deletion. 

The copy buffer is of limited size. Whenever the deletion is greater 
than the buffer available* the Editor will issue a warning upon typing 
<etx> with the line: 

There is no room to copy the deletion. Do you wish to delete anyway? (y/n) 

EXCHANGE 

EXCHANGE mode is reached by typing "X" while at the Edit level. 
On entering EXCHANGE mode the following prompt line appears: 

>eXchange: TEXT -C<bs> a char> C<esc> escapes* <etx> accepts] 

EXCHANGE mode replaces one character in the file for each 
character of text typed. For example in the file in Figure 3.5 with 
the cursor at the "W" in WISE, typing "X" * followed by typing "SM" 
will replace the "W" with the "S" and then the "I" with the "M" leaving 
the line as shown in Figure 3.6 with the cursor before the second "S". 

Figure 3. 5 Figure 3. 6 

WRITE('TOO WISE ')* WRITE< 'TOO SMSE ')* 
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Typing a <back-space> (<bs>) will back the cursor one character 
and cause the original character in that position to reappear. As with 
most other commands, when in EXCHANGE mode, <esc> leaves the mode 
without making any of the changes indicated since entering the mode* 
while Cetx> makes the changes part of the file. 

Note: Exchange does not allow tap ing past the end of the line 
or tuning in a carriage return 

FIND AND REPLACE 

In both modes the use of a <repeat~f actor> is valid and must be 
typed before typing "F" or "R". The Crepeat-f ac tor> appears in 
brackets on the prompt line. 

Strings: Both modes operate on delimited strings. The Editor 
has two string storage variables. One, called <targ> by the prompt 
lines* is the target string and is referred to by both commands while 
the other/ called <sub> by the prompt line/ is the substitute and is 
used only by REPLACE. The following rules apply to both these strings. 

Delimiters: Both delimiters of the string will be the same. 
For example: When in REPLACE mod*? the following command is valid and 
will replace the first occurrence of the character M C" with the 
character "1": "<[<)])". Here "<" and " > " are the delimiters 

The Editor considers any character which is not a 
letter or a number to be a delimiter. <^pace> is a particularly common 
del imi ter. 

Direction: Both modes operate from the position of the cursor 
tc scan the text in the direction indicted by the arrow on the prompt 
line. The target pattern can only be found if it appears in that 
section of the text. See the section on direction on order tc change 
the arrow 

Literal and Token mode. In Literal mode; the Editor will look 
for any occurrences of the target string. If you are in Token mode the 
Editor will look for isolated occurrences of the target string. The 
Editor considers a string isolated if it is surrounded by any 
combination of delimiters. For example, in the sentencr "Put the book 
in the bookcase.", using the target string "bock", literal mode will 
find two occurrences of "book" while token mode will find only one, the 
word "book" isolated by the delimiters <space> <space>. 

To use token mode, type "T" after the prompt line and before 
the target string; to use literal mode, type "L". The default value 
found in the Environment may be over-ridden by typing "L" or "T" as 
appropriate. Token mode ignores spaces within strings so that both 
"< ', ' ) " and "(', ')" are considered to be the same string. 
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The Same option: In both commands typing "S" indicates to the 
Editor that it is to use the same string as used previously. For 
example, typing M RS/<any-string>/" causes the REPLACE mode to use the 
previous target string* while typing "R/<any-string>/S" causes the 
previous substitute string to be used. 

FIND 

FIND mode is reached by typing "F" while at the Edit level. On 
entering Find mode one of the prompt lines in Figure 3.7 appears. 

Figure 3. 7 

>FindCi3: L(it <target> => 

>FindC13: T(ok <target> O 



The FIND mode finds the n-th occurrence of the <target> string 
starting with the current position and moving in the direction shown by 
the arrow at the beginning of the prompt line. The number "n" is the 
<repeat~factor> and is shown on the prompt line in the brackets "C3". 

Example 1: In the STRING1 program with the cursor at the first 
"P" in PROGRAM STRING1 type "F". When the prompt appears type 
"'WRITE'". The single quote marks MUST be typed. The prompt line 
should now appear as: 

>FindC13: Dit <target> O 'WRITE' 

After typing the last quote mark the cursor jumps to immediately after 
the M E" in the first WRITE. 

Example 2: In the STRING1 program with the cursor at the "E" of 
"END. " type: "<" "3" "F". This will find the 3rd ("3") pattern in the 
reverse < "<" > direction. When the prompt line appears type /WRITELN/. 
The prompt line should read: 

<FindC33: Dit <target> =>/WRITELN/ 

The cursor will move to immediately after the "N" in WRITELN. 



Figure 3. 8 

PROGRAM STRING1; 
BEGIN 

WRITE < 'TOO WISE ')> 

WRITE < 'YOU ARE')* 

WRITELNC '); <*CURSOR FINISHES IN THIS LINE*) 

WRITELNC 'TOO WISE '); 

WRITELN( 'YOU BE. ') 
END. <*CURSOR STARTS IN THIS LINE*) 



Example 3: On the first find we type "F/WRITE/". This locates 
the first "WRITE". Now typing "FS" will make the prompt line flash: 

>FindC13: L>it <target> =>S 

and the cursor will appear at the second WRITE. 

REPLACE 

REPLACE mode is reached by typing "R" while at the Edit level. 
On entering REPLACE mode one of the two prompt lines in Figure 3.9 
appears. In this example/ a <repeat~factor> of four is assumed. 

Figure 3. 9 

>ReplaceC43: Lvit V(fy <targ> <sub> *> 

>ReplaceC43: T<ok V<fy <targ> Csub> => 



Example 1: Type "RL/QX//YZ/ M which make the prompt line appear as: 

>ReplaceC13: Dit V)fy <targ> <sub> OL/GX//YZ/ 

This command will change: "VAR SI ZEQX: INTEGER; " to "VAR 
SIZEYZ: INTEGER; ". Literal mode is necessary because the string QX is 
not a token but is part of the token SIZEGX. 

Example 2: In Token mode REPLACE ignores spaces between tokens 
when looking for patterns to replace. For example, using the lines on 
the left hand side of Figure 3.10 and typing: "2RT/ <',')/. LN. " The 
prompt line should appear as: 

>Replace: Dit V)fy <targ> <sub> =>/(', ')/.LN. 

Immediately after the last period was typed those two lines 
would change to those on the right hand side. 



'igure 3. 10 

WRITE ( '* ')', 
WRIT£< ', ') 



WRITELN; 
WRITELN; 



V)fy: The verify option permits examination of the <targ> 
string iup to the limit set by the repeat factor) and deciding if 
it is to be replaced. The following prompt line appears whenever 
REPLACE mode has found the <targ> pattern in the file and verification 

has bssn requested: 



^-Replace: Cesc> aborts. 'R' replaces, 



' doesn ' t 



Typing an "R" at this point will cause a replacement while 
typing a space will cause the REPLACE mode to search for the next 
occurrence provided the Crepeat-f actor> has not been reached. The 
<repeat-factor> counts the number of times an occurrence is found* not 
the number of times you actually type "R". Use "/" as a <repeat~f ac tor> 
in order to replace every occurrence of the target string. Once the 
Editor can no longer find the target string* the prompt: 

ERROR- Pattern not in the file Please prc^^ -Cspac: t*-bar> to continue. 

aopsar s. 



FORMA" 
ADJUS" 



ADJUST mode is reached by typing *'A" while at the Edit level of 
Command. On entering ADJUST mode the following prompt line appears: 

>Adjust: L<just RCjust CCenter <i .eft < right > up # down-arrouis> <Cetx> to leave) 

The ADJUST mode is designed to make it easy to adjust the 
indentation. On any line the Oight~arrow> and -Clef t-arroui> commands 
move the whole line. Each time a <r igh t~arrow> is typed the whole line 

moves one space to the right. Each Clef t~arrou*> moves it one to the 
left. When the line is adjusted to the desired indentation press <»tx>. 
After- pressing <etx>, <esc> cannot be used. 

In order to adjust a whisle s issuance of lines, adjust one line* 
then use <up-arrcw> (<d.own-arroui>) commands ar\6 the line above (below) 
will ba automatically adjusted by the saiM amoynt. 

Repeat-factors are valid when u^ed before any of the <arrow> 
c o mm 3 n d s while in ADJUST mo d e ■ . 
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ADJUST mode can also center or justify text. Typing "L" while 
in ADJUST mode will cause the line to be left-justified -to the margin 
set in the Environment. Similarly typing ■ "R" right-justifies to the set 
margin and typing "C" will cause the line to fee centered between the 
set margins. Typing <up— arrouO- (or <down~arrow>) will cause the line 
above (below) to be adjusted to the same specification (left—justified* 
right-justified or centered) as the previously adjusted line, 

MARGIN 

MARGIN command is executed by typing "M" while at the Edit 
level. MARGIN is an Environment dependent command; that isi it may only 
be executed when Filling is set to True and Auto-indent is set to 
False. The prompt for the MARGIN command does not app&ar on the 
">Edi t : " 1 ine. 

There are three parameters v%&4 by the command: Right-margin* 
Left-margin and Far £■ graph -mar g in. MAROIN deals with one paragraph and 
realigns the text to compress it ■&> myth as possible without violating 
the above three margins. See the Environment option under the SET mode 
for how to set the margin values. 

Exa m pis: T h & p a r a g > * a p h i n r x q u v e >; . I 3 has been MAR G I Ned w i t h 
the parameters on the left while the s&wz paragraph in Figure 3. 14 has 
been MAR G I U e d with the p a r a n* e t e r s on t h e r i g h t . 

L eft ~m a r g i n I.. e f- 1 - ■ m a r g i n 10 

R i g h t-mar g i n 72 R i g h t-mar gin 70 

• P a r a g v a p h —m a t q x s \ 8 Pa r a g r a p h — m a r g i n 

Fiaure 3. 13 



This quarter-^ the equipment h different., the course materials 
3-p^ substantially d i f f p^en t ■ and the cnuT *: e orqar^i zaf i on . is different 
from previous quarters. You -will be' misled if you- depend upon a friend 
who took the course previousl 1 .! to orient uou to the course. 



Figure 3. 14 



This quarter, the equipment is different, the course materials are 
substantially different. ar>ti the course organization is 
different from previous quarters. You will be misled if 
you depend upon a friend who took the course previously to 

o r i e n t u n u t o the to or »e. 
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A paragraph is defined to be something occurring between two 
blank lines. To MARGIN a paragraph iiscva the cursor to anywhere in that 
paragraph and type "M". Whan doing an exceptionally long paragraph it 
may take several seconds before the routine is ready to redisplay the 
screen 

COMMAND CHARACTERS 

Portions of the text can be protected from being MARGINed by 
the use of the Command character. If the Command character appears as 
the first non-blank character in a line then that line is protected 
from the MARGIN command. The MARGIN command treats a line beginning 
with the command character as though it were a blank line/ that is/ it 
will consider that line to terminate (begin) the paragraph. 
Warning: Do not use the MARGIN command when in a line beginning with 
the Command character. 



MISCELLANEOUS COMMANDS 

SET 

SET mode is entered by typing "S" while at the Edit level. 

The prompt for the SET command does not appear on the ">Edit:" prompt 

line du^ to space limitations. On entering the SET mode the following 
prompt line appears: 

>Set: MCarker Environment <esc> 

MCarker: 

When editing* it is particularly convenient to be able to jump 
directly to certain places in a long file by using markers set in the 
desired places. Once seti it is possible to jump to these markers 
using the- MCarker option in the JUMP mode. When in the SET mode; type 
"M" for M<arfcer and the following prompt line appears: 

Name of marker? 

The nam© may bs? up to S characters followed by a <return>. 
Marker names sre- case sensitive so that lower and upper cases of the 
same letter are considered to be different characters. The marker will 
be entered at the position of the cursor in -the text; therefore* first 

move the cursor- to the desired position before setting the marker. (If 

the marker already existed* it will be- reset. ) 

Only 10 markers btb allowed in a file at any one time. If. on typing 
"SM'S the prompt: 
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Figure 3. 15 

Marker ovfloj. 

Which one to replace, 

0) namel 

1 ) name2 



9)namei0 



appears* it is necessary to eliminate one in order to replace it. 
Choose a number thru 9> type that number &nd that space will now be 
available for use in setting the desired marker. 

If a copy or deletion i.s made between the beginning of the file 
and the position of the marker the marker will not subsequently return 

to the desired place as the absolute position has changed. 

E environment: 

The Editor enables the user to set the environment which the 
user dntc-'rfo.nps K e b?? mo™^ convenient for the editing being done.. When 
in the PET motix type "E" fo - ^ Environment, the screen display is 
replaced with the following prompt shown in Figure 3, 1.6 

Figure 3. 16 



>En v i r o n m © n t ; {options > <■ e fc x > o r < s p > t o I e a v e 

A(uto indent True 

F ' i 1 1 i n g False 

L (eft margin 

R ( igh t mar g in 79 

F v a t c5 m ?> t u i n "> 
C Command ch 

TCokan def True 

7436 bytes used, 12020 available 



Patterns: 

<target>~ 'xyz'/ <subst>= 'abc ' 
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By typing the appropriate letter* any or all of the options may 
be changed. The options shown are the default options for the Editor 
on the Terak 8510A. Implementations for other machines may have 
different defaults. 

The Options; 

A(uto indent: 

Auto-indent affects only the INSERT mode of the Editor. Auto- 
indent is set to True (turned on) by typing "AT" and to False (turned 
off) by typing "AF". 

F( i 1 1 ing : 

Filling affects the INSERT mode and allows the MARGIN command 

to function. Filling is set to True (turned on) by typing "FT" and to 
False by typing "FF". 

L(eft margin 
R(ight margin 
P<ara margin: 

When Filling is True the margins set in the Environment are the 
margins which affect the INSERT mode and the MARGIN command. They also 
affect the Center and justifying commands in the ADJUST mode. To set 
the Left-margin* type n L M followed by a positive integer and a <space>. 
The positive integer typed should replace the old value for the LCeft 
margin in the prompt shown in Figure 3. 16 All positive integers with 
less than four digits are valid margin values. 

CCommand ch: 

The Command character affects the MARGIN command and the 
Filling option in the INSERT mode as described in those sections. 
Change Command characters by typing "C" followed by any character. For 
example typing M C"> "#" will change the Command character to "*". This 
change will be reflected in the prompt. 

T(oken def: 

This option affects FIND and REPLACE. Token is set to True by 
typing U TT" and to False by typing "TF". If Token is True* Token is 
the default and if Token is False* Literal is the default. 
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VERIFY 

The VERIFY command is executed by typing "V" while at the 
Edit level. The status of the Editor is verified by displaying the 
updated sctsbv. The Editor attempts to adjust the window so that the 

cursor is at the center of the screen. 



QUIT 

QUIT mode is reached by typing "Q* 1 while at the Edit level. On 
entering QUIT mnde the screen display is replaced by the following 
prompt: 

Figure 3. 17 



>Gu i t : 

UCpdate the work file and leave 

E ( x i t without updating 

R(eturn to the editor without updating 

W(rite to a file name and r^tuvn 

One of the four options must be selected by typing U* Ej R or W 
U ( p d a t e '. 

This causes the Editor to write the file just modified 

into the worfcf i le and store it as SYSTEM. WRK. TEXT. It is available 
for either the Compile or Run options or far the Save option in the 

Filer- The Filer treats SYSTEM. WR'/... TEX" 1 " ,?=- teat file 

E( x i t : 

This c a use s t he Ed i tor t o 1 e a v e w i t h ni;t ;▼}# k i n g a r -*? c h a n g e- s i n 
SYSTEM, vvRK. TEXT. This means that any modifications made since entering 

the Editor are not recorded in th«=- permanent work file. 

R ( e t u rn: 

This option returns to the -Editor without updating. The cursor 
is returned to the exact place in the file it occupied whe?n "Q" was 
typed. Usually this command is used s>ft&v unintentionally typing "Q". 

W(rite: 

This option puts up a further prompt: 

Figure 3, 18 

>Guit: 

Name of output file (<cr> to return) ~ --> 
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The modified -File may now be written to any file name. If it 
is written to the name of an existing file* the modified file will 
replace the old file. This command can be aborted by typing <return> 
instead of a file name and return will be to the Editor. After the 
file has been written to disk/ the Editor will prompt with the 
f ol lowing . 

Figure 3. 19 



>Quit 

Writing 

Your file is 1978 by 
Do you want to Eixit 



s long. 

cm or R(eturn i 



the Editor' 



Typing "£" exits from the Editor and returns to the Command 
level while typing "R" returns the cursor to the exact position in the 
file as when "Q" was typed. 



* REFERENCE SECTION * * Section 1.3.4 * 



<d own-art 1 ow> 
<up-arrow> 
<r ight~arrow!> 
■Clef t-arr ow> 
<space> 
<back-spare> 
<tab> 
<return> 



moves Crepeat— factor> 



moves 
moves 



'.v e p a a t 



•actor- 



lines down 

lines up 

spaces right 

spaces left 

spaces in direction 

spaces left 

tab positions in direction 



to the beginning of line -Crepeat— f ac tor> lines in directic 



il V" It it «l <i „. I! 

II % it it «« I? 4. M 



A < d j y s t 



change' direction to backward 

change direction to forward 

moves to the beginning of what was just found/replaced/inserted/ 

exchanged 

Adjusts the indentation of tk& line that the cursor is on. Use 
the arrow keys to move. Moving up (down) adjust line above 
(below) by sam# amount of adjustment on the line you were on. 
Repeat-factors are valid. 



C<opy: Copies what w#s last inserted/deleted/zapped into the file at 
the position of the cursor. 

DCelete: Treats the starting position of the cursor as the anchor. Use 
any moving commands to move the cursor. <etx> deletes 
everything between the cursor and the anchor. 
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F<ind: Operates in Diteral or Doken mode. Finds the <targ> string. 

Repeat-fac tors &-r® valid* direction is applied. **S ,! = use same 
string as before. 

ICnsert: Inserts text, Can use <backspace> and <tfel> to reject part of 

your insertion. 

Jiump Jumps to the beginning* &n^ or previously set marker. 

MCargin. Adjusts anything between two blanfc lines to the margins which 
have been set, Command characters protect text from being 
margined. Invalidates the copy buffer. 

P(age: Moves the cursor one page in direction. Repeat-factors av& 
valid.- direction is applied. 

Q<uit: Leaves the editor. You may U)pdate< E)xit« W)rite* or R}eturn, 

RCeplace: Operates fn L<iteral or T(ok*en mode. Replaces the <targ> 
string with the <subs> string. VCerify option asks you to 
verify before it replaces. **S" option uses the Same string as 
before. Repeat-factors replace the target several times. 
Direction is valid. 

S(et: Sets MCarkers by assigning a string name to them. Sets 

Environment for AC uto— indent . FCilling* margins/ TCokem an^d 
C Command characters. 

V { e r i f tj : Redisplays the screen w i t h the. cut" s or centered. 

eXU:hange: Exchanges the current text for the text typed while in this 

mode. Each line must be done separately. <back~space> causes the 
original character to v&-~app&sT . 

Dap: Treats the starting position of the last thing 

f n u n (1 / 1" e o J -&C g <\ / 1 n r- e r ■ t e -1 as a n a n c h o r 3 n d deletes e ve r y t ft i r* ?.| 
between the anchor av\6 the current cursor position 

<repeat-f actor> is any number typed before a command Typing a / is the 
infinite mj.mlb-sr. 
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#if -S-JRS- •&# #••&#% * * -S-* #■# *# £• *##■*###### 

* L2 EDITOR * * Section 1.3,5 * 

Version I. 5 September 1978 

The L2 Editor is being released on an experimental basis. Not 
all options are yet fully implemented so this section may not be 

complete. Th& main advantage of this version is that it is able to 
handle files larger than can fit into the main memory buffer at one 
timet the upper limit being determined by the space available on disk. 
It also automat ically makes a backup copy of the file being edited. In 
many respects this Editor marks exactly as this release and displays 
the same prompt lines. Where the versions are the same> the user is 
directed to vs&d the m&in Editor section, 

Entering the Workfile and Setting a Program 

If* on typing E* there is not enough room on the diski 

ERROR: Not enough room for backup! 

will be displayed. This disk must then be KCrunched in order to 
provide room if that is possible* a file removed or another disk must 
be used. 

The same prompt line is displayed* see section 1.3.2. 

1) With a name. If a file is chosen/ a backup copy will be 
made before the file is available for editing, 

Figure 5. I 

Copying to filename, back. 

Read in a . . , 



After this >< 5 ri3f; of prompt Iine«, the first part of the text 

mill, appp^r on the screen. 

2) Wish a return. A new file is created in the same manner as 

i r .; 'section 1.3 3 . 

Thus paragraphs on moving th# cursor. Insert and Delete in 
section 1.3.2. should be v&aQ and are applicable here. 

Leaving the Editor and Updating the workfile 

When all changes and additions have been made» the Editor is 

exited by typing "0" and the following prompt is displayed. 

Figure 5. 2 

>Qu x t : 

U(pd.ate the workfile and leave 

E(xit (but workfile not updated) 

R(eturn to the Editor without doing anything. 
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Notice that the Write option is no longer available. One of 
these three options must be chosen. See also Miscellaneous commands 
in section 1. 3. 3 



U ( p d a t e : 

This works in the same manner* however additional information 
is supplied indicating the name of file updated and the length. 

When a new file is created* the fallowing appears: 

Figure 5. 3 

Writing. * 

The workfile, *SYSTEM. WRK. TEXT/ is n blocks long 

When an existing file has been used* this example shows the extra 
information now given: 

Figure S- 4 

Writing. * 

The warkfile, *X:Fi.TEXT* is 44 blocks long. 

The backup file is X:Fi BACK 

The newly' edited file is r^^BTV@d to as .TEXT* while the .BACK file 
contains the original file with no modifications. 

E( x i t: 

This causes the Editor to return to the command level without 
making any changes in the workfiie. No .BACK file is made and the 
existing .BACK is removed For example* if Fi. TEXT is the file being 
used* then a copy Fl BACK will be made an entering the editor and on 
leaving by using the E option* Ft. BACK 'will be removed and only Fl. TEXT 
will remain. However*- since Fl.TEXT i% a copy of the original* it 
will be in different place in the directory. 

R(eturn: 

This is the same. See section i. 3. 3. 



MOVING COMMANDS 

JUMP 

Jump mod® displays the same prompt line as before. In this 
cau'o n B" and "E" r&fsv to the beginning (end ) of the buffer not the 
beg inning (end ) of the file. 

Typing "M" causes the Editor to display: 
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Jump to what marker? 

It is now possible to us© 20 markers and these will be set in 
the same way as in section 1,3,3 To jump to the desired marker* type 
in the name, If the marker is present, the Editor will jump to that 
position/ otherwise* the Editor will jump to the last position of the 

cursor in the file. If Find needs to search a section of the file* 

other than the buffer, Leaping will be displayed". 

This is a new command and is reached by typing "B" at the Edit 

level This is the prompt that will appear: 

>Banish: To the LCeft or RCitjht <esc> 



Prior to doing a large insertion or copy* in order to provide 
mors* room in the buffer and avoid buffer overflow* it is possible to 
move characters from the buffer into the stack. There is a left and a 
right stack* left being ahead of the cursor and right* behind the 
cursor The u%®v can make the choice accordinq to the current 



si tu-st ion. 
NEXT 



In general* the screen is the boundary for the operation. 



In order to move beyond the bounds of the buffer* type "N" 
The following prompt will then be displayed: 



Next; Flomar 



Yk i* ps r f{ s j! ,'». t* f\ Vj, i t^ t h f* f '"' ? 



■t.- E(nd of the file. 



,esc> 



C h cose one of the five op t i o n s a v a i 1 a h \ % .. W h *? r» y s i n g !i F ,; or 
"H'S an implicit banish occur*; using the zuvznr as the point of 
"? ? f='^nce For example; when "F" is typed* everything above the top of 
the screen is banished to the left stack. More characters ave ad^^ti to 
the bottom of the screen to extend the buffer in the forward 
direction. When "B" is used the charge ters below the cursor ave 
banished to the right stack and part of the screen will become blank. 
More characters bto &66®d above the 'window' of the screen. 



Figure 5. 



SYMBOLIC FILE 



I e f t s t a c k 
Bar k wards 

Start 



BUFFER 



right stack 
Forward 

End 
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PAGE 

See section 1.3.3. 

EQUALS 

See section 1.3.3. 

TEXT CHANGING COMMANDS 

INSERT 

See section 1. 3. 3. 

DELETE 

See section 1, 3. 3. 
ZAP 

See section 1,3.3= 
COPY 

See section 1. 3, 3. 
EXCHANGE 

Sae section 1. 3. 3. 

FIND 

Read section 1.3.3. The Editor mill display: Finding 

and if the pattern is not in the buffer: 

End of buffer encountered Get more from disk? <Y/N> 

On typing "Y"# the Editor mill move another section of the file 
into the buffer to continue searching. Find is still directional 

REPLACE 

See section- 1.3.3. ■.■ 

FORMATTING COMMANDS 
ADJUST 

Sr*e set t ion i. 3.. 3. 
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MARGIN 

See section 1. 3. 3. 

MISCELLANEOUS COMMANDS 

SET 

See section 1.3.3. The same prompt line is displayed. 

M<arker : 

Read section 1.3.3. The names of the markers can be seen by 
typing "5E' S for Set Environment while at the Edit level. To set the 
mar her * type "SM". In the event that 20 markers have already been set/ 
this w i I i b ©. i n ri i c a t e d by: 

Marker overflow. Which one to replace? (Type in the letter or <sp> 

Environment: 

To set the environment, type "BE". The following is an example 
of the prompt displayed: 

Fig u r e 5.5 

>Env iv onment : ojjtjysns <etx> or -Csp^ to leave 
A(uto Indent False 
FCiiling True 
LCeffc margin 4 
R Cight margin 70 
Piava margin 1 
C Command ch '"• 
S<st tabstops 
It ok en def True 

11582 bytes used. 2754 available. 

There are q pages in the left stack* and 10 pages in the right stack 

You have 86 pages of room, and at most 13 pages worth in the buffer- 
Mar fears: 

<Pi P2 >P3 
Created August 15, 1978: Last updated August 15, 1978 (Revision 1). 



By typing the appropriate letter, an*} or all of the options can 
changed. See section 1.3.3. The arrow before the marker name 
indicates the relative position of the marker in the file to the 
buffer No arrow indicates that the marker is in the current buffer 
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It is now possible to vary the tabstops. Type "S M while in the 
environment and the following prompt will appear: 

Set tabs: <right»left vectors> C(ol# Nl^^RijLahJg.Jglefjfe.J^.^ecimial stop, <etx> 



At presents these are not yet fully imp I ©man ted so that the effect of 
using any of them is to have a variable tabstop instead of being set at 
eight characters apart. 

VERIFY 

See section 1. 3, 3. 
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* YET ANOTHER LINE ORIENTED EDITOR - YALOE * * Section 1.4 * 



Version I. 5 September 1978 



This test editor is intended for use on systems that do not 
have powerful screen termini) lis. It is designed to be very similar to 
the text-editor which accompanies DEC'S RT-lt system. 

The editor assumes* but is not dependent on# the existence of 
the utorkfile text. Upon reading it YALOE will proclaim 'workfile STUFF 
read in'. If it does not find such a file, it will proclaim 'No work 
file road in', This means that you entered YALOE with an empty 
wot ?t file, From this point you mBy create a file in YALOE? and when you 
exit by typing 'QU'» your work file will no longer be empty. 



The editor operate 
Mode. In command mode all 
instructing the editor to 

the editor 1 you will he in 
whsnsvPT the user types a 
string After the command 
file. W C r i t € to file.- or e 
characters ar® considered 
typed. Note: when typed C 
text string and causes the 
which p o i n t all c h arsi c t er s 



s in one of two modes: 
keyboard input is int 
perform some operation 
the Command Mode. The 
command which must be 
F<ind* G<et< Ivnsert. 
X (change has been type 
part of the text strin 
esc> echoes a '$'. Th 
editor to re-enter th 
a^e again considered 



Command Mode or Text 
erpreted as commands 

When you first enter 

Text Mode is entered 
followed by a text 

M(acro define. RCead 
d > all succeeding 
g until an <esc> is 
e <f»sc> terminates the 
e Command Mode* at 
commands. 



SMOTE, 
execute them. 

commands. ) 



Follow command strings in YALOE with <esc><esc> to 
(This is unlike the rest of the systems 'immediate' 



1. 4. 1 



SPECIAL KEY COMMANDS 



Various characters have special meanings/ 



as described below. 
Some of thsse apply only in YALOE. Many have similar effects in the 
rest of the system; for these the ASCII code to which the system 
responds as indicated can be changed using the program SETUP* described 
in Section 4. 3. (<esc> is the most particular anomaly to YALOE. ) 

<esc> Echoes a '$' A single <esc> terminates a text strinj 

A double <«sc> executes the command string. 



RUBOUT 

< I i n e d e J > 



Deletes current line. On hard-copy terminals echoes 

'-CZAF' and a carriage return.. On others, it clears 
the current line on the screen. In both cases the 
contents of that line are discarded by the editor. 
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CTRL H 
<chardel> 



CTRL X 



Deletes character from the current line. On hard- 
copy terminals it echoes a percent sign followed by 
the character deleted. Each succeeding CTRL H the 
by the> user deletes and echoes another character. 
An enclosing percent sign is printed when a key other 
than CTRL H is typed. This erasure is done right to 
left up to the beginning of the command string, 
CTRL H may be used in both Command and Text mode. 

Causes the editor to ignore the entire command 
string currently being entered. The editor 
responds with a <cr> and an asterisk to 
indicate that the user may enter another 
command, For example: 



* I DALE AND 
KEITHCCTRL 



X> 



A <chardel> would cause deletion of only KEITH) 
would erase the entire command. 



CTRL X 



CTRL. 



CTRL F 
<f lush> 

CTRL S 
<stop> 



Will switch you to the optional character set 
(i.e. bit 7 turned on). This works only on the 
TERAK 8510A. The CTRL O is used as a toggle 
between the character sets. NOTE: You may find 
while in the editor that weird characters ar^ 
showing up on the terminal instead of normal 
ones. It could be because you accidentally 
typed CTRL 0. To get back just type CTRL O 
again. 

All output to the terminal is discarded by the system 
until the ne?ct CTRL F is typed. 

All output to the terminal is held until another 
CTRL S is typed. 



All other control characters are ignored and discarded by YALOE. 



1. 4. 2 



COHHAND ARGUMENTS 



A commmand argument precedes a command letter and is used 
either to indicate the number of times the command should be performed 
or to specify the particular portion of text to be affected by the 
command. With some commands this specification is implicit and no 
argument is needed; other commands* however* require an argument. 

Command arguments av& as follows: 



jlh 



n n stands for any integer. It may be preceded by a + or -. 

If no sign precedes n> it is assumed to be a positive number. 
Whenever an argument is acceptable in a command* its absence 
implies an argument of i (or -1 if only the - is present). 

m m is a number O. , 9, 

'0' refers to the beginning of the current line, 

/ '/' means 32700. '-/' means -32700 It is used for a larg 
repeat factor. 

ss >?■-' i% used only with the J* I) and C commands and 

represents -n* where n is equal to the length of the 
last text argument used* for example *GTHIS* S =D** 
finds and removes THIS. 



1.4.3 COMMAND STRINGS 

All EDIT command strings ave terminated by two successive <esc>s. 

Spaces; carriage returns arM tabs (CTRL I> within a command string are ignored 
unless they appear in a text string. 

Several commands can be strung together and executed in 

sequence. For example: 

*B GTHE INSERTED* -3CING* 5K GSTRING** 



As a rule, commands btb separated from one another by a single 
<esc>. This separating <esc:> is not needed* however* if the command 
requires no text, Commands are terminated by a single <esc>* a second 

<esc> signals the end of a command string? which will then be 
executed. When the execution of the CGmir\an6 string is complete* the 

editor prompts for the next command with '#'. 

If at any point in executing the command* an error is 

encountered- the command will be terminated* leaving the command 
executed only up to that point. 



1.4.4 THE TEXT BUFFER 

The current version of your text is stored in the Text Buffer. 
This buffer's av®a is dynamically allocated! its size and the room left 

for expansion may be ascertained by using the ? command,. 



Page 61 



The editor can only work on files that fit entirely within the 
Text Buffer. The Screen Oriented Editor in the next major release will 
not have this limitation. 

1,4. 4 THE CURSOR 

The "cursor" is the position in your text where the next 
command will be executed. In other words it is the current 
"pointer" into the Text Buffer. Most edit commands function with 
respect to the cursor: 

A» B» F« Qt J: Moves it. 

D/K: Remove text from where it is. 

U»I,R; Add text to where it is. 

Ct X: Remove and then add text at it. 

Lf V: Print the text on the terminal from it. 

1. 4. 5 INPUT/OUTPUT COMMANDS 

L<ist# V(erify ( WCrite* R(ead* Q<uit, E(rase* and 

The L(ist command prints the specified number of lines on the 
console terminal without moving the cursor. 

#~2L** Prints all characters starting at the second 

preceding line and ending at the cursor. 

*4L** Prints all characters beginning at the cursor 

and terminating at the 4th <cv>. 

*OL*$ Prints from the beginning of the current line up 

to the cursor. 

The VCerify command prints the current text line on the 
terminal. The position of the cursor within the line has no effect and 
the cursor is not moved. No arguments are used. The V(erify command 
is equivalent to a OLL (list) command, 

The W(rite command is of the form 

*W<file title>* 

File title is any legal file title as decribed in Section 1. 2 
less the file type. The editor will automatically append a '.TEXT' 
suffix to the file title given unless the file title ends with '. '> 
'!', or '.TEXT'. If the filename ends in a '. ', the dot will be 
stripped from the filename. 
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The WCrite command will writs the entire Text Buffer to a file 
with the given file title. It will not move the cursor nor alter the 
contents of the Text Buffer. 

If there is no room for the Text Buffer on the volume specified 
in the file title given* the message: 

OUTPUT ERROR. HELP! 

mill be printed. It is still possible to write the Text Buffer out by writing 
it to another volume. 

The R(ead command is of the form 

*R<file titie>$ 

The editor will attempt to r^ad the file title as given. In 
the event no file with that title is present, a '.TEXT' is appended and 
a n e w search is made. 

The R<ead command inserts the specified file into the Text 
Buffer at the cursor. The cursor remains in the Text Buffer before the 
text inserted If the file read in does not fit into core buffer* the 
entire Text Buffer will be undefined in content, i.e. this is an 

unrecoverable error. 

The GCuit command has several forms 

GU Quit and update by writing out a new SYSTEM. WRK. TEXT 
QE Quit and escape session; do not alter SYSTEM. WRK. TEXT 
OR Don't q,uit; return to the editor 
Q A prompt will be sent to the terminal giving all the 

above choices) enter option mnemonic <U*. E* or R> only. 

Executing the QU command is a special case of the write 
command? and the attempt to write out SYSTEM. WRK. TEXT may fail. In 
this ca?g us® the W command to write out your file and then GE to exit 

the editor. 

The QR command is used on the occasions when a Q is accidentally 
typed* and you wish to return to the editor rather than leave it. 

The E(rase command (intended for CRT terminals) erases the 

screen. 

The O command (also intended for CRT terminals) can be used to 
have the context around the cursor displayed on the screen each time 
the cursor is moved, The argument of the command determines the size 
(# of lines) in that context. This option is initially disabled when 
the editor is entered and can be enabled by issuing an O command. A 
second command disables the option; succeeding 'O's successively 
enable* disable etc. The cursor is denoted as a split in the line. 
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1.4.6 CURSOR RELOCATION COMMANDS 

U(ump> A<dvance. B<eginning> G(et, F(ind 

When using character and line? oriented commands, a positive <n 
or +n> argument specifies the number of characters or lines in a 
forward direction* and a negative argument the number of characters or 
lines in a backward direction. The editor recognizes a line of text as 
a unit when it detects a <cr> in the text. 

Carriage return characters ar& treated the same as any other 
character. For example assume the cursor is positioned as indicated in 
the following text <•* represents the current position of the cursor and 
does not appear in actual use It is present here only for 
c lar if i cation ) : 

THERE WAS A CROOKED MAN"<CR> 

AND HUMPTY DUMP TV FELL ON HIM<CR> 

The JCump command moves the cursor over the specified number of 
characters in the Text Buffer The edit command ~4J moves the cursor 
back 4 characters. 

THERE WAS A CROOKED" MAN<€R> 

AND HUMPTY DUMPTY FELL ON HXM<CR> 

The command 10J moves the cursor forward 10 characters and 
places it between the 'H' ar\(i the 'U'.. 

THERE WAS A CROOKED MAN<CR> 

AND H'-UMPTY DUMPTY FELL ON HIM<!CR> 

The A(dvance command moves the cursor a specified number of 
lines. The cursor is left positioned at the beginning of the line. 

Hence the command OA moves the cursor to the beginning of the 
current line. 

THERE WAS A CROOKED MAN<CR> 
V AND HUMPTY DUMPTY FELL ON HIM<CR> 

The command -1A (or -A) moves the cursor back one line. 

S THER£ WAS A CROOKED MAN<CR> 
AND HUMPTY DUMPTY FELL ON HIM<CR> 
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The ECeginning command moves the cursor to the beginning of the 
Text Buffer. 

Search commands are used to locate specific characters or 
strings of characters within the Text Buffer, 

The G<et and F(ind commands are synonymous. Starting at the 
position of the cursor* the current Text Buffer is searched for the nth 
occurrence of a specified text string A successful search leaves the 
cursor immediately after the nth occurrence of the text string if n is 
positive and immediately before the text string if n is negative. An 
unsuccessful search generates an error message and leaves the cursor at 
the end of the Text Buffer for n positive and at the beginning for n 
negative. 

*BGSTRING$~J$* This command string will look for the string 

STRING starting at the beginning of the Text 
Buffer- and if found it will leave the cursor 
immediately before it. 



1.4.7 TEXT MODIFICATION COMMANDS 

I<nsert> D(elete> Mill, C(hange* eX(change 

The I<nsert command causes the editor to enter the TEXT mode. 
Characters stq inserted immediately following the cursor until an <esc> 
is typed. The cursor is positioned immediately after the last 
character of the insert. Occasionally with large insertions the 
temporary insert buffer becomes full. Before this happens a message 
will be printed on the console terminal* 'Please finish'. In response 
type two successive <esc>s. To continue, type I to return to the Text 
mode. 

NOTE: Forgetting to type the I commami will cause the text 
entered to be executed as commands. 

The Dielete command removes a specified number of characters 
from the Text Buffer? starting at the position of the cursor. Upon 
completion of the command * the cursor's position is at the first 

character following the deleted text. 
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■*-2D** Deletes the two characters immediately preceding 

the cursor. 

•*B*FHOSE **=D** Deletes the first string 'HOSE ' in the Text 

Buffer* since -D used in combination with 
a search command mill delete the indicated 
text string. 

The KCill command deletes n lines from the Text Buffer, 
starting at the position of the cursor Upon completion of the 
command, the cursor's position is the beginning of the line following 
the deleted text. 

*2K** Deletes characters starting at the current 

cursor position and ending at (and including) 
the second <CR>. 

#/K** Deletes all lines in the Text Buffer after the 

cursor. 

The C<hange command replaces n characters; starting at the 
cursor/ with the specified text string. Upon completion of the 
command* the cursor immediately follows the changed text= 

*GCAPPLES** Replaces the characters from the beginning of 

the line up to the cursor with 'APPLES'* 
(equivalent to using OX). 

*BGHOSE*=CL IZARD** Searches for the first occurrence of 'HOSE' in 

the Text Buffer and replace it with 'LIZARD'. 

The eXCcbange command exchanges n lines* starting at the 
curs or # with the indicated text string. The cursor remains at the end 
of the changed text. 

*-5XTEXT*$ Exchanges all characters beginning with the 

first character on the 5th line back an6 ending 
at the cursor with the string 'TEXT'. 

*OXTEXT** Exchanges the current line from the beginning to 

the cursor with the string 'TEXT 1 ', {equivalent 
to using OC ) 

*/XTEXT** Exchanges the lines from the? cursor to the end 

of the Text Buffer with the text 'TEXTS 
( equivalent to using /C ) . 
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1.4.8 OTHER COMMANDS 

S<ave, U<nsave> M<acro> N (macro execution) and "?' 

The S<«ve command copies the specified number of lines into the 
Save Buffer starting at the cursor. The cursor position does not 
change* and the contents of the Text Buffer are not altered. Each time 
a S(ave is executed- the previous contents of the Save Buffer* if any* 
are destroyed. If executing the S(ave command would have overflowed 
the Text Buffer* the editor mill generate a message to this effect and 
not perform the save. 

The UCnsr.ave command inserts the entire contents of the Save 

Buffer into the Text Buffer at the cursor. The cursor remains before 

the inserted text. If there is not enough room in Text Buffer for the 

Save Buffer, the editor will generate a message to this effect and not 
execute the unsays. 

The Save Buffer may be removed with the command OU. 

The MC&cro command is used to define macros. A maximum of ten 
macros* identified by the integer <0. . 9> preceding the 'MS avB 
allowed The default number is 1. The MCacro command is of the form: 

mMXcommand stringX 

This says to store the command string into Macro Buffer number 
m* where m is the optional integer O. . 9. The delimiter "5C' in this 
example, is always the first character following the M command and may 
be any character which does not appear in the macro command string 
itself. The second occurrence of the delimiter terminates the macro. 

All characters except the delimiter are legal Macro command 
string characters? including single <esc>s. All commands arts legal in 
a macro command string. Example of a macro definition: 

*5M"/»0BEGIN*=GEND BEGINSV*"/.** 

This defines macro number 5. When macro number 5 is executed, 
it will look for the string 'BEGIN', change it to 'END BEGIN' , and 
then display this change. 

If ar\ error occurs when defining a macro* the message 

'Error in macro definition' 
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will be printed* and the macro will have to be redefined. 

The execute macro command; N* executes a specfied macro command 
string. The form of the command is: 

nNm$ 

Htsve n is simply any command argument as previously defined? m 
is the macro number (an integer 0. . 9) to be executed. If m is omitted* 

1 is assumed. Because the digit m is technically a command text 
string* the N command must be terminated by an <esc>. 

Attempts to execute undefined macros cause the error message 
"Unhappy macnum'. Errors encountered during macro execution cause the 
message 'Error in macro'. Errors encountered in macro command syntax 
cause the message "Error in macro definition". 

The ? command prints a list of all the commands and the sizes 
of the Text Buffer* Save Buffer* and available memory left for 
expansion. 
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1. 4. 9 



SUMMARY OF ALL COMMANDS 



n 



an arqument 



m 



macro number 



nA 


Advance the 
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B 
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nC 


Change by de 




text. Termi 


nD 


Delete n cha 


E 


Erase the sc 


r»F 
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the follow! n 


nG 


Get - di 


H 


- i n 


I 


Insert the f 


nJ 


Jump cursor 


nK 


Kill n lines 




at the start 


nL 


List n lines 


mM 
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Nm 
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nO 


On » off i* o g g 




above &r\d 




If the cur 




be split i 




The tfefaul 


P 


- in 


Q 


Quit this se 



inserting the following 



irrent cursor position of 
get string with <esc>. 
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leting n characters and 

nate text with <esc>. 
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reen. 

h occurrence from the cu 

g string. Terminate tar; 

1 1 o - 

valid — 

ol lowing text. Terminate text with <esc>. 

n characters. 

of text. If 

of the line* 

of text. 

number m. 

number m» n 

1 e . I f g n * n 
below the cursor each t;ii 
sot- i r» in the middle of 
nto two parts. 

t is whatever fills the screen. Type to turn off, 
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ssion* followed by: 



current cu 
the first 



rsor position is not 
part of the line remains 
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line s 



of text will be displayed 
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nS: 

T: 
U: 

V: 
W: 

nX: 

Y: 
2 



U : ( p d a t e 
E: < scape 
R : ( f» t u r n 
Read this file 
'R' must be f 



con 


tent of the 
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he next n li 


Save 


Buffer 
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'W 
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Write out a new SYSTEM. WRK. TEXT 
Escape from session 
Return to editor 
into buffer (insert at cursor); 
ol lowed by <file name> <esc>» 
the file will not fit into the buffer* the 
buffer becomes undefined! 
nes of text from the cursor position into the 



he contents of the Save Buffer into the text 

does not destroy the Save Buffer. 

the current line 

from start of buffer); 

lowed by <filename> <esc> 

text* and insert the following text* 
sc>. 
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Notes 
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VUE TO THE LARGE NUMBER OF BUGS IN THE VEBUGGER, WE HAVE OMITTED THE 
VEBUGGER, AND ITS CORRESPONDING DOCUMENTATION FROM THE SYSTEM RELEASE. 

THE VEBUGGER WILL BE AVAILABLE AT SOME TIME IN THE FUTURE, AND VOU WILL 
BE NOTIFIED OF THIS FACT. PLEASE VO NOT ASK US ABOUT THE VEBUGGER, AS 
THE REPLY YOU GET WILL BE THE SAME AS THE MESSAGE ON THIS PAGE. 



Thank you ^ok. you/i patiencie in tfau matteA. id. 



PageA 74 thAougk SO kavz bun omitted. 
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* PASCAL COMPILER * * Section 1. 6 * 

*tt*#**4HHt-**tHHt-$*'*** -ft*-****-** *-***-##* 

Version I. 5 September 1978 

The UCSD Pascal compiler* a one-pass recursive descent based on 

the P2 portable compiler from Zurich/ is ins'oked by using the C(ompile 
or R<un command of the outermost level of the UCSD Pascal system. If a 
workfile exists.-* it compiles that. Otherwise* it prompts the user for 
a source file name. It generates codefile* to run directly on the 

Pascal interpretive machine. 

Unless the HAS SLOW TERMINAL boolean inside the system 
communication area (see section 4.3) is true* the compiler-/ during the 
course of compilation, will display on the CONSOLE device output 
detailing the progress of the compilation. This output can be 
suppressed with the Q* compiler option (see section on compiler 
options below) Below is an example of the output which appears on the 
CONSOLE device: 

PASCAL compiler CI. 5 unit compiler! 

< 0>. 

Pi £7050 3 

< 19>. 

P2 C 3040 3 

'%. 61/ .,....,..,.,...,....,.... ► 

TEST £30033 

•C 11 9>, , . . .■ 

The identifiers appearing on the screen are the identifiers of 
the program and its procedures. The identifier for a procedure is 
displayed at the moment when compilation of the procedure body is 
started. The numbers within t 1 indicate the number of (16 bit) words 
available for symbol table storage at that point in the compilation. 
The numbers enclosed within < > are the current line numbers. Each dot 
on the screen represents 1 source line compiled. 

If the compilation is successful, that is* no syntax errors 
detected., the compiler writes a codefile to the disk called 
♦SYSTEM. WRK. CODE, This is the codefile which is executed if the user 
had typed the R(un command. See Section 1. 1 INTRODUCTION AND OVERVIEW 
for further details on the system commands. 

Should the compiler detect a syntax error* the text surrounding 
the error and an error number together with the marker '<£« ' will 
point to the symbol in the source where the error was detected. In the 
event that both the Q and L options av& set* the compilation will 
continue, with the syntax error going to the listing file* and the 
console remaining undisturbed. The compiler will the give the user the 
option of typing a space, an <esc> or 'E'. Typing a space instructs 
the compiler to attempt to continue the compilation* while escape 
causes the termination of the compilation* and "E" results in a call to 
the editor* which automatically places the cursor at the symbol where 
the error was detected. 
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Host of the syntax errors detected by the UCSD Pascal compiler 
are the standard ones listed in Jensen Sc Wirth. A complete list of all 
UCSD syntax errors can be found in Table 5. Ail error numbers will be 
accompanied by a textual message upon entry to the editor if the file 
*SYSTEM. SYNTAX is available. 

1.6.1 COMPILE TIME OPTIONS 

Compile time options in the UCSD Pascal compiler are set 
according to a convention described on pages 100-102 of Jensen and 
Wirth* where compile time options are set by means of special "dollar 
sign" comments inside the Pascal program text. The syntax used in 
UCSD's compiler control comments is essentially as described in Jensen 
and Wirth. The actual options and the letters associated with those 
options bear only little resemblance to the options listed on pages 101 
and 102 of Jensen and Wirth. If a '+' or '- ' is not specified after 
an option letter* '+' is assumed. The following sections describe the 
various options currently available to the user of the UCSD Pascal 
compiler. 

D: 

This option causes the compiler to issue breakpoint 
instructions into the codefile during the course of the compilation in 
order that the interactive Debugger can be used more effectively. See 
Section 3 2 "DEBUGGER" for details 

Default value: D~ 

D-: causes the compiler to omit breakpoint instructions 
during the course of the compilation. 

D+: causes the compiler to emit breakpoint instructions. 



Affects the boolean variable QOTOOK in the compiler. This 
boolean is used by the compiler to determine whether it should allow 
the use of the Pascal GOTO statement within the program. 

Default value: G— 

G+: allows the use of the GOTO statement, 

0— : causes the compiler to generate a syntax error upon 
encountering a GOTO statement. 

C: The [*$C comment*) place* the. comment, [SO chasiacten. maximum*) In the code 

kite gene/iated. ThU option am in>ed at UCSV to place copyxtght tn{onmation 
tn the codefile. 
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The. G— option has been used at U. C.S.'D to restrict novice 
programmers from excessive uses of the GOTO statement in situations 
where more structured constructs such as FOR* WKILE> or REPEAT 
statements would be more appropriate. 



When an ' I * is followed immediately by a '*■' or '-*•', the 
control comment will affect the boolean variable IOCHECK within the 
compiler. An alternative use of 'I' in a compiler control comment 
causes the compiler to include a different source file into the 
compilation at that point. See section INCLUDE-FILE MECHANISM for 
syntax. 

IOCHECK OPTION 

De f a u It value; I ■»■ 

I+: instructs the compiler to generate code after each statement 
which performs any I/O/ in order to check to see if the I/O 
operation was accomplished successfully. In the case of an 
unsuccessful I/O operation the program will be terminated 
with a run time error. 

I-: instructs the compiler not to generate any I/O checking 
code. In the case of an unsuccessful I/O operation the 
program is not terminated with a run time error. 

The I -opt ion is useful for system level programs which do many 

I/O operations and also checks the IORESULT function after each I/O 
op -rat ion. The system program can then detect ar>6 report the I/O 
errors, without being terminated abnormally with a run time error. 
However this option is sat at the expense of the increased possibility 

that I/O error?' <and possibly severe program bugs)* will yo 
undetected. 

INCLUDE FILE MECHANISM 

.The syntax for instructing tfte compiler to include another 
source file into the compilation is as follows: 

(#*!. FILENAME** 
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The characters between 'I' and '#)' are taken as the filename of the 
source file to be included. The comment must be closed at the end of the 
filename* therefore no other options/ such as G+> or L+* etc. can follow the 
filename. Note that if a file name starts with '+' or '—' as the first 
character of the filenamei a blank must be inserted between '<**I' and 
'FILENAME '. For example* the comment; 

<** I TURTLE. TEXT*) 

would cause the file TURTLE. TEXT to be compiled into the program at 
that point in the compilation. 

<#$! +FARKLE. STUFF*) 

would cause the source file +FARKLE. STUFF to be included into the 
compilation. 

If the initial attempt to open the include rile failsi the 
compiler concatenates a ".TEXT" to the file-name and tries again. If 
■this second attempt fails* or some I/O error occurs at some point while 
reading the include file* the compiler responds with a fatal syntax 
error. 

The compiler accepts include files which contain CONST* TYPE, 
VAR, PROCEDURE* and FUNCTION declarations even though the original 

program has previously completed its declarations. To do so> the 
include compiler control comment must appear between the original 
program's last VAR declaration and the first of the original program's 
PROCEDURE or FUNCTION declarations. Note that an include file may be 
inserted into the original program at any point desired* provided the 
rules governing the normal ordering of Pascal declarations will not be 
violated. Only when these rules ar» violated does the above procedure 
apply.. 

The compiler cannot keep track of nested include comments* i.e. 
an include file may not have ar\ include file control comment. This 

results in a fatal syntax error. 

The include file option was ad6s6 to the compiler at U. C. S. D in 
order to make it easier to compile large programs without having to 
h&ve the entire source in one very large file which in many cases would 
be too large to edit in the existing editors' buffer. 

L: 

Controls whether the compiler will generate a program listing 

of the source text to a given file. The default value of this option is 
L-* which implies that no compiled listing will be made. If the 
character following "L" is "+", then the compiled listing will be sent 
to a diskfile with the title '*SYSTEM. LSI. TEXT '. The user may override 

this default destination for the compiled listing by specifying a 
filename following "L M . For example the following control comment will 

cause the compiled listing to be sent to a diskfile called 
"DEMQl. TEXT"' 
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<**L DEM01. TEXT*) 

To specify a file-name inside a control comment* see the 
section describing the include file mechanism. 

Note that listing files which are sent to the disk may be 
edited ss any other text file provided the filename which is specified 
contains the suffix M . TEXT". Without the "TEXT" suffix the file will 
be treated by the system as a data file rather than as a text file. 

The compiler outputs next to each source line the line number* 

segment procedure number* procedure number* and the number of bytes or 
words (bytes for code* words for data) required by that procedure's 
declarations or code to that point. The compiler also indicates 
whether the line lies within the actual code to be executed or is a 
part of the declarations for that procedure by outputing a n D" for 
declaration and an integer O. . 9 to designate the lexical level of 
statement nesting within the code part. If the D+ option is set then 
the listing file will include an asterisk on each line where it is 
appropriate fzr a user to specify a breakpoint while in the interactive 
Debugger. This information can be very valuable for debugging a large 
program since a run time error message will indicate the procedure 
number/ and the off-set libera the %WQr occurred. 



G: 

The Q compiler option is the "quiet compile" option which can 
he used to suppress the output to the CONSOLE device of procedure names 
and line numbers detailing the progress of the compilation. 

Default value: is set equal to current value of the SLOWTERM 

attribute of the system communication record 
SYSCOM"-. (actually SYSCOfT. MISC1NFO. SLOWTERM) 

G+: causes the compiler to suppress output to CONSOLE device. 

Q~: csusej th-s compilsr to ssnd procedure name and line number 
output to the CONSOLE device. 



R: 

This option affects the value of the boolean variable 
RANGECHECK in the compiler. If RANGECHECK is truei the compiler will 

output additional code to perform checking on arr-a^ subscripts and 
assignments to variables of subrange types. 

P: 

Tku> option C.OLU&QA the, LLbtlng to continue. &Aom top-o{-ionm. I.e.. the. compilex 

doeM 

PAGE(LISTFILE) 
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Default value: R.+ ' : 

R+: turns rana® checking on. 

R— : turns range checking off, 

!Mote that programs compiled with the R— option set will run 
slightly faster; however if an invalid index occurs or a invalid 
assignment is made* the program will not be terminated with a run time 
error. Until a program has been completely tested and known to be 
correct/ it is usually best to compile with the R+ option left on. 



This option determines whether the compiler operates in 
"swapping" mode. There are two main parts of the compiler: one 
processes declarations; the other handles statements. In swapping 
modc?> only one of these parts is in main memory at a time. This makes 

about 2500 additional words available for' symbol table storage at the 
cost of 'slower compilation speed due to the overhead of swapping the 
compiler segment in from disk. On fullsize* single density floppy 
disks this amounts to a factor of two reduction in compile speed. This 
option must occur prior the the compiler encountering any Pascal 
syntax. 

Default valve: S- 

S+: puts compiler in swapping mode 

S-~: put 5 compiler in n on- swapping mode 

U; 

USER PROGRAM OPTION: 

This option sets the boolean variable S'YSCOMP in the compiler 
which is <j%&4 by the compiler to determine whether this compilation is 
a user program compilation* or a compilation of a system program. 

Defa u 1 1 v a 1 u e ; U+ 

U+; informs the compiler that this compilation is to take place 
on the ussr prog ram lex level. 

U— : informs the compiler to compile the program at the system lex 
level. This setting of th«? U compile time option also causes 
the following options to be set - R~. Q+? I™. 
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NOTE: This option will generate programs that will not behave 
as expected. Not r -commended for non-systems work without knowing its 

method of operation. 

USE LIBRARY OPTION: 

In this version of the 'U' option* the U is followed by a file 
name. The named file becomes the library file in which subsequent 
USEed UNlTs are sought. The default file for the library is 
^SYSTEM. LIBRARY. (see section 3.3.2 for more details on UNITs) 

Following is an example of a valid USES clause using the 'U' 

option: 

USES UNIT1.UNIT2* {Found in *SY3TEM. LIBRARY.} 
{$U A. CODE} 

UNIT3? 
($U B. LIBRARY^ 

UNIT4, UNITS; 
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* UCSO BASIC COMPILER * * Section 1.7 * 



Version 1.5 September 1978 

This section has fessn designed for programmers who are already 
familiar with Basic. Its intent is to describe to those experienced 

users the details of UC5D Basic in a manner sufficiently detailed so as 
to -enable the writing or modification of programs in a manner 
compatible with the UCSD Basic Compiler: 

The first section contains a brief description of the features 
included in UCSD Basic; the second, the descriptions of the features 
unique to UCSD Basic* and the third a list of those features which we 
intend UCSD Basic to allow.* but which are not yet implemented. 

The UCSD Basic Compiler has been written in the Pascal 
language. Some of the intrinsic* of the Pascal language* which are not 
found in standard Basic? ar% found within the UCSD version of Basic. 
Many of these are noted in the first section* all of them are noted or 
recapped in the second. 



The UCSD BASIC Compiler is invoked just like the Pascal 
compiler, provided the compiler code is named *SYSTEM. COMPILER. 
Originally it will be named BASIC . COMPILER. If you want a disk to be 
BASIC oriented* you must change the name of; or remove* the Pascal 
compiler, and change the name of BASIC. COMPILER to *SYSTEM. COMPILER. 
That disk* and any copies of it* will now compile BASIC programs as a 
result of the C Compile or Hiun command. 

DESCRIPTION OF FEATURES INCLUDED 

The Basic compiler has only real and string variables. Hhen 

applying a real to indexing or other integer purposes the rounded value 
of the number is used. In the "unctions below x and y can be real 
variables or expressions which evaluate to real values. Similarly si 

and s2 can be string variables or expressions which evaluate to a 
str ing , 

VARIABLE NAMES 

Real variables: letter (d ig i t ) . 

String variables; letter < digit >$. The digit is optional. 
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INTRINSIC AR I THNET I C FUNCTIONS 

ATNCx) Returns the angle in radians whose tangent is x. 

EXP ( x ) Returns the base of the natural logarithms raised to the power x. 

INT(x) Returns the value of x rounded to the nearest integer. 

LQQ(x) Returns the log (base 10) of x. 

LN(x) Returns the natural log of x. 

M0D<x>y) Returns x modulo y. 

SIN(x) Returns the sine of the angle x. Where x is in radians. 

COS(x) Returns the cosine of an angle x. Where x is in radians. 

INTRINSIC STRING FUNCTIONS 

CAT*(sl»s2 f . .. ) Returns a string which is equal to the concatenation of 
all the strings in the parameter list. 

CQP&i s 1 / x > u ) Returns a copy of the portion of the string si? u 

consecutive characters* starting with the character at position x, 

DEL$< s li x-f y ) Returns the contents of the string si with y consecutive 
character* deleted. The deletion starts with the character at 
posit ion x. 

INS$( s 1 v s2: x ) Returns the contents of string s2 with string si inserted 
immediately before the character which is at position x, 

LENCsl) .Returns the length of the string si. 

POSCsl. s2> Returns an integer which is equal to the position of the 

first character in the first occurrence of the string si in the 
string s2. 

OTHER FUNCTIONS 

ORD(s) Returns the ASCII value of the first character of the string s. 

STR$(x> Returns the string containing the character associated with the ASCII 
value x. 
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3ET$ Reads a single character from the keyboard without prompt or echoing, 
and returns it as a string. GET$ requires no arguments. 



DLDCci s 

NEWCCr s 



) c is a numeric constant without a fraction part/ which becomes 
associated with the disk file whose name is in s. OLD expects that 
file to already exist, NEW creates a new one with the name s* removing 
any previous file of that name. These functions must occur before 
associated print or input statements. The numbers may not be 
reassigned and must be in the range 1. . 16. For best results* use only 
at the top of a program. In order that a file created by NEW be 
editable with either of the system editors* '.text' must be appended to 
the file title. 



These functions return IORESULT as described in section 2. 1. 



PROGRAMMING STATEMENTS 

Arithmetic statements and operations 

— * *• subtract* add 

/ * * divide* multiply 

"'"■ s -a- ■$ exponentiation 



Relational operators 



"v.-"" * .»*"*%. 






equals 
not equals 
greater than 
less than 

greater than or eq.ua! 
less than or equal 



INPUT list 

or 
INPUT #c list 



Inputs from the main system device* usually the keyboard. If the 
optional #c is present* INPUT inputs from the disk file number 
c. The input list may contain any combination of real variables and 
string variables. When a program expects input the prompt "?*' is 
printed. Input of real numbers may be terminated with any non-numeric 
character. Input of strings must be terminated with a return. 



PRINT list 

or 
PRINT #c list 



Writes to the main output device the list following the PRINT command. 
If the optional #c is present* PRINT outputs to the diskfile number c. 
The output list may contain any variable* subscripted array variable* 
any arithmetic or string expression* or any literal text. The list may 
be separated by commas or semi-colons. If the list ends in a semi-color 
the carriage return is suppressed. Literals may be enclosed in either 
type of quotation marks. Double quotation marks prints a single 
Quotation mark. 
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FOR var = ex pi TO exp2 STEP exp3 

NEXT var 

Each execution of the loop increments the loop counter "var" fey the 
amount of expression 3. If the STEP is omitted it is assumed to be 1. 
Only increasing STEP values arts allowed. Evaluation of limits and 

increments is done at the beginning of the loop. Note that RETURN'S into 

or SOTO 's into a FOR loop may cbusb the loop to hw> undefined. 

IF expl (relation operator) exp2 THEN (line number) 

GOTO 

Either the reserved word THEN or GOTO can be used in this statement. If 

the relation between the ex-pi and exp2 is found to be true the branch 

occurs. A string is considered to be less than another string if it is 
lexicographically sma 1 1 e r . 

3N exp QOTOanL ln2. . > 

If the expression* when rounded* evaluates to 1 it goes to the first 
line number (Ini) if it evaluates to 2 it goes to ln2* etc. This is the 
only form of the computed QOTQ which is available. If the expression is 
out of range an error occurs, 

OEF FNname< 1 i st )=ex press ion or DEF FNname(list) 

FNEND 

Single I '.me and multi-line functions arg allowable. The function name 
must be a legal variable name for the type of value returned. Functions 
may be defined recursively. The parameter list is called by value> that 
is> changes inside the function don't affect the value of the external 

parame t e r «; . 

_ET var-exp 
or 

This command assigns a new value to the variable If the variable is a 

string; the expression must v/aloatz to a string/ and if a- real* 
evaluation must be to a p*al. 

HM var <nl# n2* . . . > 

A single or multidimensional a^rsy may be declared with this command. 
The variable name determines the type of the arrayi. The avraij indices 

are 0. . nt/ O. r-2> . . . Both ^eal and string multidimensional arrays can be 
used. If no dimensions are declared the dimensions ere assumed to be 
0..10/ 0. . 10* 0. . i, 0. . 1 ... The number of dimensions automatically 
declared depends on the number of dimensions which btq used in the 
program* but must be consistent over all uses of any given array. 
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QOSUB linenutnber 



E x e c u t e « a s u b r o u t in© call. The c a I ling a d dress is placed an the 
subroutine stack. Subroutine calls ftiay.be recursive. 



RETURN 



Returns to the line after the last GOSUB which is still pending. It pop 
the top address off the stack and uses it as the return address. A 
return when no QOSUB 's are pending is an error. 

QOTO linen umb er 

Program execution jumps to the given line number. 
REM text 

'** h i ? I i n e is a r e ma r k , 

UNIQUE FEATURES OF UCSD BASIC 

Ar i fchme t ic 

For loops: Mote that var-expl is done before exp2 or exp3 ar^ evaluated. 

Continuation of statements is allowed. Any line not beginning with a 

line number is assumed to be the continuation of the line above. 

Functions: All p&v&m&tzrs of functions &r® call by value. You are not 
allowed to use the parameters to return values from a function. 

Function call* are allowed to be recursive. 

Strings: The string functions and procedures are those found in the 
UCSD Pascal language. 

Arrays: Arrays of more than two dimensions are allowed. 

Print: Tab stops are not allowed* All list elements' are printed without 
spaces between them. The carriage return can be suppressed by "j Jl 

a » the last symbol in the line. 

Subroutines: Subroutines may be recursive. 

Comments: In line comments may be inserted. The portion of any line 

following the S symbol is ignored by the compiler. 
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PASCAL FUNCTIONS: The cod© of . PASCAL FUNCTIONS may be added to the 
BASIC compiler as new standard BASIC functions. This is 
accomplished by a straight-forward addition to the BASIC compiler. 



FEATURES TO BE ADDED 

Certain features of the UCSD Basic compiler are still in the 
process of being implemented. The most important of these ^re listed 
below. 

Data and Read: The standard initialization statements. 

Matrix statement for standard matrix operations,. 

Integer variables. 

More standard functions. 

RUNNING A BASIC PROGRAM 

Create the BASIC program using one of the system text editors. 
Once you have ensured that the BASIC compiler has been named 
SYS TEH. COMPILER/ you cart use the commands C<ompile and R < un at the 
COMMAND level, just a.s if you mere using Pascal on a disk uihich has the 
Pascal compiler as its SYSTEM. COMPILER. For a more detailed 
description of COMMAND see Section 1.1 
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* THE LINKER * * Section 1.8 * 

Version I. 5 September 1978 

The UCSD LINKER allows the user to combine pre~~comp i led files* 
which mail have been written either in PASCAL or in assembly language* 
into the system work file. The user may wish to incorporate certain 
useful routines into programs without having to rewrite or even 
recompile these routines. For example* one might wish to use a fast 
assembly language routine for some "real-time" application. This 
routine could bo assembled separately* stared in a library; and 
eventually atc&'%<*&4 via the LINKER, 

To link in routines \eitfter procedures or functions)* the 
calling program declares those routines to be EXTERNAL* much as 
PROCEDURES or FUNCTIONS may be declared FORWARD (see Section 3.3.1). 
This notifies the compiler that the routines may be called* hut are not 
provided yet. The compiler will then inform the system that linking is 
required before execution. 

The LINKER tan also be used to link in UNITs. A UNIT is a 
group of related routines which will be used together to perform a 
common task. UCSD TURTLEGRAPHICS is an example of a UNIT containing 
procedures and functions with which a "turtle" can be moved on the 
screen. A UNIT cart be used by typing the command USES <unitname> 
directly after the PROGRAM <i dent if i er>. For more information on 
UNITs* see Sectiov* 3. 3.. 2, 

Any files which reference UNITs or EXTERNAL routines and have 

not yet been linked may be compiled and saved* but tail! need to be 
linked before they can be executed. 

1. 8. 1 USING THE LINKER 

If the program in the workfiie contains EXTERNAL declarations, 
or uses UNITs* typing Rtun will automatically invoke the LINKER after 
the compiler. The LINKER will search the file ^SYSTEM. LIBRARY for the 
routines or UNITs specified/ and will attempt to link them into the 
workfiie. If the UNIT or EXTERNALly declared routine is not present in 
♦SYSTEM. LIBRARY* the LINKER will respond with an appropriate message: 

Proc * 
Funci 
Q 1 o b a 1 # 
or Public <ident i f ier> undefined 
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The LINKER may also be invoked explicitly* and* in fact* must 

be invoked explicitly in cases where 

1) the file into which UNITs or EXTERNAL routines are to he 

linked is oat the war k f i I e * or 

(2) the external routines to he linked reside in library files 
other than aSYSTEM. LIBRARY. 

(Note: In the current implementation UNITs must reside in 
♦SYSTEM. LIBRARY at the time of compilation in order to be USED by a 

PASCAL program. ) 

In order to explicitly invoke the LINKER* the user types 'L' at 
Command level and receives the prompt: 

Host file"? 

The hostfile is the til® into which the routines or UNITs are to be 
linked. The LINKER appends .CODE ot ail file names typed in except for 
#<rs?t>. Typing a <rst> in response to the prompt c •-* u *•• e % the LINKER to 
use the morkfile as the hostfile. The LINKER then asks for the name ( s ) 
of the library files in yihich the UNITs or EXTERNAL routines are to be 
found: 

Lib file? Ccodefile identifier^- 

Up to eight library files may be referenced. Typing '*' in 
response to a request for a libfile name will cause the LINKER to 
reference *SYST£M. LIBRARY. The user will be notified about each 
library file that is successfully opened. 

Example: Lib fii©? * Cret> 

Opening *SYSTEM LIBRARY 

For information on LIBRARIES and the LIBRARIAN see Section 4.2., 



When all relevant libfile names have been entered the user 
must type <ret> to proceed. The LINKER will now prompt with: 

Hap file? -cfil© identifier^- <rst> 

The LINKER writes the map file to the file requested by the 
user. The map file contains relevant LTIslK^TR info regarding the linking 
process, Responding mith <ret;^ to this prompt un.Il. suspend this option. 
Note that .TEXT is appended unless a '. ' is the last letter of the 
filename. 

The LINKER now reads up all segments required to enable the 
linking process. The user is nou» prompted to enter the destination 
file for the linked code output (this will often be the same file name 
as that of the host file). Linking -will commence after the <ret> 
following the output file name has been ti?pod. An empty line* Oet> 
only* causes the output file to be placed in the morkfile eg. 

During the linking process the linker will report on all 
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segments being linked as well as all external routines being copied 
into the output codefile. The linking process will be aborted if any 

required segments or routines are missing or undefined. The user will 
be in-Formed of their absence with messages as described at the 
beginning of this section. 

1.8.2 NOTES ON LINKER CONVENTIONS AND IMPLEMENTATION 

Codefiles may contain up to 16 segments Block O of a codefile 
contains information regarding name* kind* relative address and length 

of each code segment. This irrf ormat lor, is called the segtable> and 
is represented as a record: 

RECORD 

DISKlNru. .ARRAYCO. . :&3 OF 
RECORD 

CODELENG, CODEADDR: INTEGER 

END 

SEGNAME: ARRAYCO. . 153 OF PACKED ARRAYCO. . 71 OF CHAR; 

3EGK1ND ARRAYCO. . 153 OF (LINKED. HOSTSEG, SEGPROC, UNITSEG, 

SEPRTSEG); 

TEXTADDR- ARRAYto. . 153 OF INTEGER, 

C O DELFNG and C ODE ADDR give, rsspecti v sly, the length of the 
code segment in bytes* and the block .-address of the code segment, A 

description of SEGKINPs follows; 

LINKED: The code^egment is fully executable. Either all external 
references <UNITs or EXTERNALS) have been resolved/ or 
none luere present 

H05TSEG: the ssgkind assigned to the outer block of a PASCAL 
program i? the program has external references. 

5EGPR0C: the segkind assigned to a PASCAL segment procedure 

UNI TSEG: chi> segkind assigned to a compiled SEGMENT, (see Section 

SEPRTSEG: This segkind is assigned to a separately compiled 

procedure or function. Assembly language codefiles btb 
always of this type, as well as Pascal UNITs which are 
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For an unlinked coda segment (that -is/ a segment containing 
unresolved external references) the compiler generates linker 
information. This information is a series of variable-length records, 
one for each UNIT* routine or variable mhich is referenced in# but not 
defined in the source. The first S words of each record contain the 
following information: 

LXENTRY=RECORD 

NAME; ALPHA/ 

CASE LITYPE: LI TYPES OF 

UNITREF, 

GLOBREF, 

PUBLREF, 

PRWREFi 

SEPPREF, 

8EPFREF, 

C0N3TREF: 

(FORMAT: OPFORMAT* ■ (format of 1 i entry. name can be 



NREFS: INTEGER; 
NWORDS- LCRAMGE); 



any of BIG, BYTE or WORD. ) 

<# of references to lientry. name in 

compiled code segment) 
(size of privates in words) 



OLOBDEF: 



(HOMEPROC: PROCRANGE; (which procedure it occurs in) 
ICQFFSET: ICRANGE); (byte offset in p-code) 
PUSLDEF: 

CBASEQFFSET: LCRAMGE)* (compiler assigned word offset) 
CONST DEF: 

(CONSTVAL; INTEGER); -'users defined value) 
EXTPROC; EXTrUNC* 
SEPPROC, SEPFUNC: 

CSRCPROC: PROCRANGE; (procedure number in source segment) 
NP ARAMS: INTEGER )i (number of parameters expected) 
EOFMARK: 

CNEXTBASELC: LCRAMGE) (private var allocation info) 
END! lientry); 

If the LiyvpE is one of the first case vsriant, then following 
this portion of the record is a list of pointers into the code 
segment. Each of these pointers is the absolute byte address within 
the code segment of a reference to the variable* UNIT or routine named 
in the lientry. These are S word records* but only the first MREFs of 
them are valid. 
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*«*«•**•*****•«•«•#*•»***•»**«• -K-&-*<**'-*<*<*H**4**-tt** 
* ADAPTABLE ASSEMBLER * * Section 1.9 * 

.«•»#*.«■ *■»■-«•**«■■»■*•?«■ *■■»•»■ ****** •*»**#*-&«3Hfr* ■»#*■*# 

Version I. 5 September 1978 

Users of UCSD Pascal occasionally need to write and execute 
small assembly routines written in the language of the host machine. 
These routines &ould be used uiitnin a Pascal pra-gram to provide low- 
level or time critical -Facilities. The UCSD Adaptable Assembler (in 
conjunction with the UCSD Linker) has hz&n designed to meet those 
n&stis. The UCSD Pascal Project uiill bs maintaining ail our Pascal 
interpreters using this eiss^.^ble? in the near future. Hy this process 
the users of 5 the UCSD Pascal system will become essentially independent 
of an{i manufacturer's system soft-ware. 

This, assembler uias modelled after The Last Assembler (TLA) 

developed #t the University of Waterloo. The basic concept behind both 
the TLA and the UCSD Adaptable Assemblers is the y*e of a central 
machine independent core that is common to all versions of the 

assembler. This central core is augmented with machine specific code 
to handle the peculiarities of each individual machine. 

For the 1.5 release PDP-11 and ZOO assemblers will be 
available. Neither of these adaptations took longer than one person- 
week o? effort. 

This document is intended for a reader who is already fluent in 
at least one assembly language. 

1.9. 1 USAGE 

Before attempting to execute the assembler program for a 
specific machine^ c*n opcodes file ( /ISO. OPCODES or II, OPCODES) must be 
located on the sus.tem disk. Th& errors file (ZOO. ERRORS or 11. ERRORS) 
contains the zvrov messages that av^ used for error flagging during the 
assembly. This file is optional* * f u*>®d> it must also appear on the 

S if S t O HI d 2. 3 ft . 

To use the UCSD .assembler, type A<ssem from the Command line. 
This : A fiU execute SYSTEM. ASSEMBLER, (The user should arrange that the 
right version of the assembler {PDP-11 or Z80> have that title. ) 

The program, displays* the version of the asssembler being 
executed ?fniji assumes that fch» c: urgent ujorkfile is the one to be 

assembled. If there is no current workflle then the program asks which 
fileistabeascsmblod. 
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The next prompt line is: 

Output file far the assembled listing (<€R> far none): 

As usual for a console or printer output the words CONSOLE or 

PRINTER must he followed by 3 colon, i.e. CONSOLS;. If the colon is 
neglected the output is sent to a file of the name given. At this 
point* the program reports whether or not the output device .'if any.) is 
on line... The assembled code is written out to a file called 
*SYSTEM. WRK. CODE which cannot be executed by itself but must he changed 
ta link in uiith a host file. 

The program then starts assembling the workfile* flagging 
errors as they are found. If an a error* other than an I/O 
error*- is found? a general message indicates the nature of the error 
■av>3 also gives the option to continue or exit. The error message will 
be taken from the ERRORS file if possible. If that is not possible* due 
to space limitations or the absence of the errors file,- the error 
■message number is given. The assembly is aborted if the I/O error 
encountered is not due to data typed in by the user* otherwise the user 
is prompted to try again. iSe© the complete list of Assembler syntax 
errors and machine specific errors in Table 6, ) 

The console display s> on th& left hand side of the screen* one 
dot for each line of tode assembled an$ a line counter every 5*0 lines. 
When an include file is started* the console displays: 

INCLUDE <F1LE ID> 

indicating which file has been included. 

At the end of the assembly the assembler program indicates that 

it is finished and tells the user hou* *T?any errors mere found. In 

addition an alphabetic symbol table is generated. 

The reference symbol table consists of three parts. The first 
column represents the symbol identifier; the second, the symbol type; 
and the third* the location that it is defined or the value it has. 
Actual values are giver, for the symbols representing absolutes and 
definition locations &r-e given for the symbols representing labels 
The location number is given as a hi-byte first number and corresponds 
to the index numbers on the left hand side of the listing. Only symbols 
which have definition locations or absolute values have numbers in the 
third column; other types have dashes, 

Below is an example of an assembled listing with symbol table. 
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PR1HARY2 FILE: #5: PRIMARY. Z 



0000! 

Memory after initialization 

0000 i 

0000! FLOPPY 

0000 ! SEC MEM 

t 

0000 f SECENT 

0000 J SECDSK 

P 

0000 i B1DSR 

0000 5 B2D3K 

0000 \ 
0000! 



PR DC PR I MARY 2 

6068 

EQU OB FDH 

EQU 9000H 

EQU 9000H 

EQU 08H + 1700H 

EQU 10H + 1700H 

5i ; i 3j.i ,|- i 7QQH 



*C\f-J 



n»iV 



1 fk 



; Rom-based f loopy driver 

I First location in memory of bo 

; Entry point of bootstrap 

; Sector start of second bootstr 

* Sector start of BIOS part 1 
» Sector start of BIOS part 2 

# Primary bootstrap for ZILOG DO 



iOOOS 




iOOOi 


FD 21 #*** 


1004 1 


CD FDOB 


1007 s 


FD 21 *rj»-* it- 


100B! 


CD FD0.8 


100EI 


FD 21 *#■**■* 


10125 


CD FDOE 


1015! 


€3 0090 


101S! 




1002* 


isio 


X sj j. ra t 




1018! 


00 


1019! 


OA 


101 A 5 


0090 


lOiCi 


0002 


101EI 


0000 


1020! 


0010 


10221 


00 


10231 


0817 


-4 j-\ .'--i r" * 




1009* 


2510 


1 Q*iiJ.3 >. 




10S5I 


00 


x O ^ «3- * 


OA 


~i r^ -<""T> **V S 


0093 


1029; 




102B ! 


0000 


102D i 


0010 


102F? 


00 


1030? 


i f* i ~y 


10321 




i o t o ■■-■■ 


■..!« J. *.rf' 


1032? 




1 032 J 


00 


10331 


n A 


10341 


Pjj."iO*5 



PRIMARY LD 

CALL 

LD 
CALL 



FL.UPF Y 
IV* S1F;FAD 



rl.t 



, ;1 i : 






BtPEAu" 



B2READ 



.o;j6 



103 A ; 



lO 



LD IV, B2READ 
CALL FLOPPY 
■JP SECENT 



. BYTE *-% 

BYTE OAM 

. WORD SEC MEN 

. WORD 200H 

. WORD *-*$ 

. WORD PR I NARY 

. BYTE *-* 

. WORD SECDSK 



BYTE *-& 
BYTE OAH 
WORD SECHEN+300H 

WORD *-* 

WORD PRIMARY 
BYTE *-* 



TfVTF S"'S 

BYTE OAH 

l .(HP n qcr hT*h? •*• "^ r> os-f 

. WORD 200H 

. ulORD PRIMARY 



i Get block for second bootstrap 

; Get block for part 1 of BIOS 

i Get block for part 2 of BIOS 

i Jump into second bootstrap 



* Unused 

j Read command 

i Memory location for second boo 

j Number of bytes in boot 

* Completion return address 
i Error in return address 

; Completion result code 
♦Disk block of second boot 



; Unused 

# Read command 

i Memory location or BIOS part 1 

; Number of bytes in BIOS part 1 

; Completion return address 

i Error return address 

j Completion result code 

?Disfc block of BIOS part 1 



i Unused 

i R»«d command 

i Memory location cfd BIOS part 

j Number of bytes in BIOS part 2 

; Completion return address 
> EvvQr return address 
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103C! 00 
103D5 
103F! 
103F! 



BYTE 
WORD 

END 



B2DSK 



; Completion result code 
iDisk block of BIOS part 



PAGE- 



2 PRIMARYZ FILE: #5: PRIMARY. Z SYMBOLTABLE DUMP 



AB - 


- Absolute 


LB — Label 


UD - 


Undefined 


MC - 


- Macro 






RF - 


- Ref 


DF - Def 


PR - 


Prcc 


FC - 


- Func 






PB - 


- Public 


FV - Private 


CS ~ 


Constant 










B1DSK 


AB 1710; 


BiREAD LB 


1025 


B2D3K 


AB 


17181 


B2READ 


LB 1032$ 


FLOPPY 


AB OBFD! 


PRIMARY LB 


1000 


PRIMARYZ 


PR 


— ...- ; 


SECDSK 


AB 1708 5 


SECENT 


AB 9000! 


SECMEM AO 


9000 


SECREAD 


LB 


10181 







NOTES. 



The location values in the? symbol table dump refer to the 



locations i n the lis 



net yet 



the 

t h e 
the 
is 



The **•*# 

d e f i ned . 



s in the listing call at ten tiers 



the use of a label 



If a 
listing, 
assemb 1 y 
location 



star (*) appears after the location number at the left of 
it indicates that a forward reference occurring earlier in 
hiac Hrtcri T* *« r>\ \/nsi The number to the left of the '*' is 

o c c ', i T ' r e <„ { ui h i I & t h -? n ?. ; m h r; r to t h s r i o h t 

" i or* 



has b e r n resolved 

y; f - j « t g ^ hi y> t <* f v? r f* n c e o c c ' i r> r e <„ ? ui h i I a 



location £iih"TE rh? rvtzTence ore 
the reus contents of that location 



1. 9. 



HIGH-LEVEL SYf-4TAX 



All objects 






in? first 



'ROC 



FUNC are 



available for use throughout the assembly. 
generated before the first . PROC or . FUtiC. 
at the beginning of each . PROC or FUNC to 
the start of the first . PROC or . FUNC. 



No code is allowed to be 
The symbol table is reduced 
t h e p o 1 n t where it uia 5 at 



Only labels may begin in the first column and may optionally 
be followed by a colon. Local labels must have '*' in the first 
column and may be up to 8 digits long. If the statement has no label/ 
the first column must contain a space. 

All assemblies must end with a END. However each PROC or 
.FUNC need not because they avn ended by the occurrence of the next 
.PROC or .FUNC. Only the iast one needs a .END. 
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A general railroad diagram for all assembly files looks like: 



any non-code 
^ generating 

operations 



* ,PRQC 



,FUNC 



code generating 

operations ana 

directives 



• END 
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The non-code generating operations are: 

. EQU, . DEF, . REF, .PAGE, TITLE, .LIST, . MACRO, .IF 

The code generating operations are any other pseudo-ops and all 
assembly code for the program. 

1.9.3 EXPRESSIONS (one-pass restrictions) 

Since the Adaptable Assembler makes only one pass through the 
source code, something must be assumed (upon encountering an undefined 

identifier in an expression) about the nature of the identifier in 

order for the assembly to continue. It is therefore assumed that the 

undefined identifier will eventually be defined as a label, which is 

the most probable case. Any identifier which is not a label must be 
defined before it is used. 

Labels may be equated to an expression containingeither labels 
and/or absolutes. One must define a label before it is used unless it 
will simply be equated to another label. Local labels may not occur on 
the left hand side of an equate (.EQU). 

Local labels are mainly used to jump around within a small 
segment of code without having to use up storage area needed by regular 
labels The local label stack may hold up to 21 labels. These are cut 
back every time upon encountering a regular label and are thus rendered 
invalid. An example of the use of local labels is shown below, the 
jump to label $04 being illegal. 

*03 STA 4 : LEGAL USE OF LOCAL LABEL 



JP NZ.S03 



JP NZ, $04 i ILLEGAL USE OF LOCAL LABEL 
REALLAB . EQU % 
*04 . EQU * 
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Identif iers are character strings starting with an alpha 
character. Other characters must be alphanumeric or the ASCII 
underline ('_'). Only the first 8 characters av& used by the assembler 
even though more may be entered. 

The following operators can be used in expressions processed 
by this assembler, 

For unary operations: 
'+' plus 
' - ' m i n u s 
"*' ones complement 

For binary operations: 

'+' plus 

' - ' minus 

'*' exclusive or 

'*' multiplication 

'/' truncating division 

'%' remainder division 

' ! ' bit wise 

'&' bit wise 

'-' equal (valid only in .IF ) 

'<>' not equal (valid only in .IF ) 

All constants must start with an integer 0-9. 
All operations a,r& applied to whole words. 

The default radix is Hex for the ISO version and Octal for the PDP-11 

1.9.4 ASSEMBLER DIRECTIVES: OVERVIEW 

Assembler directives (also referred to as "pseudo-ops") allow 
the programmer to instruct the assembler to do various functions other 
than provide direct executable code. The following directives are 
common to all UCSD versions but may differ from manufacturer's standard 
syntax. 

In the following pseudo-op descriptions square brackets/ £2, 
are used to denote optional elements. If an element type is not listed 
it cannot be used in that situation. As usual, angle brackets* O* 
denote meta symbols. 

For example: ClabelH .ASCII "Ccharcater string>" 

indicates that a label may be given but is not necessary 
and that between the double quotes must go the character 
string to be converted (not necessarily the words 
"character string"). 
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The following terms represent general concepts in the 
explanation of each directive: 

value « any numerical value* label* constant, expression. 

valuelist = is a list of one or more values separated by commas. 

idlist = a list of one or more identifiers separated by commas. 

expression « any legal expression as defined in Section 1.9.3. 

identifier: integer list = a list of one or more identifier-integer 

pairs seperated by commas. The 
colon-integer is optional in each pair 
and the default is 1. 

Small examples are included after each pseudo-op definition to 
supply the user with a reference to the specific syntax and form of 
that directive. The larger example* included in section 3.3.2* is used 
to show the combined use and detailed examples of directive operations. 



1.9.4. 1 ROUTINE DELIMITING DIRECTIVES 

Every assembly must include at least one .PROC or . FUNC* and 
one .END* even in the case of stand-alone code which will not be linked 
into a Pascal hostd.e. an interpreter). The most frequent use of the 
assembler* however* will be small routines intended to be linked with a 
Pascal host. In this case* . PROCs and . FUNCs are used to identify and 
delimit the assembly code to be accessed by a Pascal external procedure 
or function. The . END appears at the end of the last routine and 
serves as the final delimiter. 

References to a .PROC or . FUNC are made in the Pascal host by 
use of EXTERNAL declarations. At the time of this declaration the 
actual parameter names must be given. For example* if the Pascal 
declaration is: 

PROCEDURE FARKLE( X* Y: REAL) * EXTERNAL* 

the associated declaration for the .PROC would be 

PROC FARKLE. 4 

A . PROC* . FUNC* or any assembly routine should be inserted into 
the *SYSTEM. LIBRARY (execute LIBRARIAN) so that it can be referenced by 
the *SYSTEM. LINKER and linked in at run time An alternate method would 
be to execute the LINKER and tell it what files to link in. Either 
method works. However* if the Pascal host is updated and the assembly 
routines aren't in the ^SYSTEM. LIBRARY* the linker will have to be 
executed after each update. Therefore* we suggest that the routines be 
inserted into the *SYSTEM LIBRARY to avoid this repetition. If the 
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linker is called autofisattcally using the Run command/ it will search 
the #SYSTESi. LIBRARY for the appropriate definition of the assembly 

routine and link the two together. 



PROC 



Identifies a procedure that returns no value. A . PROC is 
ended by the occurrence of a new . PROC/ . FUNC* or . END. 



FORM: 



. PROC Cident if ier>C, expression! 

Cexpression3 indicates the number of words 
of parameters expected by this routine. 
The default is O. 



EXAMPLE: 



. PROC 



DLDRIVE, 2 



FUN( 



Identifies a function that returns a value. 
Two words of space to be used for the function value 
will be placed on the stack before any parameters . 
A . FUNC is ended the same way as the .PROC. 



FORM ; 



FUNC 



i dent if ier>C» expression! 



[expression] indicates the number of words 
of parameters expected by this routine. 
The default is 0, 



EXAMPLE 



FUNC RANDOM* 4 



END 



Used to denote the physical, end of an assembly 



1. 9, 4. 2 



DEFINITIONS AND SPACE ALLOCATION DIRECTIVES 



ASCII Converts character values to ASCII equivalent byte constants 
and places the equivalents into the code stream. 



FORM: 



[iabeil .ASCII '^character string>'- 
where ^character string> is any string of printable 
ASCII characters? including a space. The length 
of the string must less than SO characters. The 
double quotes are usqH as delimeters for the 
characters to be converted. If a double quote is 
desired in the string* it must be specifically 
inserted using a BYTE. 
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EXAMPLE: .ASCII "HELLO" 

for the insertion of AE"CD the cods must be 
constructed as: 

.ASCII "AB." 
. BYTE 34 
.ASCII "CD" 

Note: The 34 is the ASCII number for a double quote in hex. 
The representation actually used will depend on the 

default radix of the particular machine in use. 

BYTE Allocates a byte of space into the code stream for each value 
listed Assigns the associated label, if any* to the address 
at tuhich the byte was stored Expression must have a value 
between -128 and +255-. If the value is outside of this range 
an error will be flagged. 

FORM: C label 3 .BYTE tvaluel ist IS 

the default for no stated value is O 
EXAMPLE: TEMP . BYTE 4 

the associated output would he: 04 

BLOCK Allocstes a block of space into code stream for each value 
listed Amount allocated is in bytes. Associates the label 
{if present) with the starting address of the block allocated. 

FORM Clabel3 .BLOCK Cleng th>C, val ue3 

<length> is the the number of bytes to hold the <value> 
specified The default fo^ no stated value is 0. 

EXAMPLE: TEMP .BLOCK 4,6 

the associated output mould be: 
06 
06 ( four bytes with the value 06 ) 

06 
06 
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WORD 



Allocates a word of space in the code stream for each value 
in the value list. Associates the declaration label with the 
mard %®&c& allocation. 



FORM: ClabeU .WORD <va!uelist> 

EXAMPLE: TEMP . WORD 0» 2, 4, . . . 

the associated output would be: 
OOOO 
0002 
0004 (words with these values in them ) 



EXAMPLE: 



LI 



WORD 



L2 . EQU $ $ represen ts the LC on the Z80 
. WORD 5. 



if LC mas 50 at the . EQU 

the associated output would be: 

0050 C# assignment due to the L2 value *) 



0005 <# a-ssianment due to the WORD 5 #) 



E&k) 



Assigns a value to a label. Labels may be equated to an 
expression containing either lab las and /or absolutes. One 
must deFine a label before it is uz&d unless it will simply 
be equated to another label. A local label may not appear 
on the left hand side of an equate < .EQU ). 



FORM: 



<label> 



. EGU 



,vaJ ue> 



-" v a !"• o ! nv 



f^ASE 



FftU 



R6 



ORG 



Sets the current location counter (LC) to the value of the .ORG. 
It would normally be used in a stand-alone program. For example* 

there is one? . ORO in the 8G&Q/2BQ interpreter. 

.ORG aj> cuAAcntly Implemented only faon. advancing the location countest. It lf> 
not cuASiently poAAtble to *>et the, location counteA back. 
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1. 9. 4. 3 



MACRO FACILITY DIRECTIVES 



A macro is a named section of text that can be defined once and 
repeated in other places simply by using its name. The text of the 
macro may be parameters zed* so that each invocation results in a 
different version of the macro contents. 



At the invocati 
of parameters which av^ 
last one* which is term 
( '» ')). At invocation 
(conceptually speaking) 
parameter substitution, 
greater that zero) occu 
parameter is substitute 
from the parameter befo 
the macro definition to 
invocation* a null stri 



on point* 

del imi te 

inated by 

time* the 

by the a 

Whenever 

rs in the 

Leadi 

the su 

parame 

is sub 



d. 
re 
a 
"9 



the macro name is 
d by commas 
end of line or th 
text of the macro 
ssembler after bei 
"An (where n is a 
macro definition! 
ng and trailing bl 
bstitution. If a 
ter not provided i 
stituted. 



followed by a list 
(except for the 
e comment indication 

is inserted 
ng modified by 
single decimal digit 

the text of the nth 
anks are stripped 
reference occurs in 
n a particular 



A macro definition may not contain another macro definition, 
definition can certainly* however* include macro invocations. This 
"nesting" of macro invocations is limited to five levels deep. 

The expanded macro is always included in the listing file (if 
listing is enabled at the point of invocation). Macro expansion text 
is flagged* in the listing* by a '#' just left of each expanded line. 
Comments occurring in the macro definition are not repeated in the 
expansion. 



A 



.MACRO Indicates the start of a macro and gives it an identifier 
.ENDM Indicates the end point of a MACRO. 



FORM: 



MACRO <identifier> 

(macro body) 
ENDM 



EXAMPLE: 



MACRO HELP 

ST A Xt 

LDA "/,S 

. ENDM 



» ■C comment y 
* < comment > 



The listing where the macro call is made may look like: 



Page 110 



HELP 


FIRST. SECOND 


ST A 


FIRST 


LDA 


SECOND 



The statement HELP? calls the macro and sends it two 
parameters. FIRST and SECOND. These parameters are in turn 
referenced inside the macro using the identifiers 7A for the 
variable FIRST, and X2 for the variable SECOND. 



4. 4 CONDITIONAL. ASSEMBLY DIRECTIVES 



Conditionals are used to selectively exclude or include 
sections of code* at assembly time. When the assembler encounters an 
.IF directive* it evaluates the associated expression. In the simplest 

case; if the- expression is false; the assembler simply discards the 
text until a ENDCis rear her*. If there is an ELSE directive between 
the . IF and . ETNDC directs vss> the text before the .ELSE is selected if 
the expression is true* and the text after the ELSE if the condition 
is false The unassembled part of the conditional will not be included 
in any listing. Conditionals may be nested. 

The conditional expression takes one of two forms. The first 
is the normal arithmetic/logical expression used elseuihere in the 

assembler. This tijpe of expression is considered false if it 
8vaS.u^t€5 to zero, true otherwise. The second form of conditional 
expression is comparison for equality or inequality (indicated by '-' 
and 'O', respectively). One may compare strings, characters* or 

ar i t h me t i c / 1 o g i c a 1 expressions, 

.IF identifies the beginning of the conditional. 

. E.NDC Identifies the end of a conditional .IF 

.ELSE Identifies the alternate to the .IF. If the conditional 
expression is egual to O then the else is used. 

FORM-: I label 1 .IF <e x press i on > 



.ELSE (* only if there is an else *> 



ENDC 
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where the expression is the conditional expression to be met 

EXAMPLE: .IF LABEL i~LA8EL2 i arithmetic expression 

; This text assembled only if subtraction 
j result is now zero 



IF "%i" -"STUFF" /comparison expression 
; This text assembled if subtraction above 
i was true and if text of first parameter 
# (assume we are in macro ) is equal to "STUFF" 

ENDC i terminate nested cond. 



} This text assembled if subtraction result 
; was zero 



. ENDC i terminate outer level 

; conditional 



1,7.4.5 PASCAL HOST COMMUNICATION DIRECTIVES 

The directives CONST. .PUBLIC* and PRIVATE allow the sharing 
of information and data space between an assembly routine and a Pascal 
host. These external references must eventually be resolved by the 
Linker. Refer to Section 1.8 Linker* for further details. 

.CONST Allows access of globally d&clared constants in the PASCAL host 
by the assembly routine. .CONST can only be used in a program 
to replace 16 bit relocatable objects, 

FORM: CONST <idX ist> 

EXAMPLE: <* see example after .PRIVATE #) 

.PUBLIC Allows a variable declared in the global data segment of 

the PASCAL host to be used by an assembly language routine 
and the host program. 
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FORM: . PUBLIC <idlist> 

EXAHPLE: <* see example after .PRIVATE *) 

PRIVATE Allows variables of the assembly routine to be stored in the 

global data segment and yet t>e inaccessable to the Pascal host. 
These variables retain their values for the entire execution of 

the program. 

FORM: .PRIVATE Cident if ier; integer list> 

the integer is used to communicate the number of 
words to be allocated to the identifier. 

EXAMPLE: (# for CONST, .PRIVATE, .PUBLIC *> 

Qiven the following Pascal host program; 

PROGRAM EXAMPLE; 

CONST SETSIZE=50; LENGTH«80i 

VAR I, J, F, HOLD, COUNTER, LDC: INTEGER; 
LST1 ARRAYCO. . 93 OF CHARi 

BEGIN 



END. 

and the following section of an assembly routine: 

. CONST LENGTH 

. PRIVATE PRT, LST2; 9 

. PUBLIC LDC, I, J 

This will allow the const LENGTH to be used in the assembly 
routine almost as if the line LENGTH . EQU Qo had been 
written. (Recall the limitation mentioned above for the use 
.CONST identifiers, > The variables LDC* I> J to be used by both 
the Pascal host and the assembly routine, and the variables 
PRT, LST3 to be used only by the assembly routine, Further, 
the LSTS 9 causes the variable LST3 to correspond with the 
beginning of a 9 word block of space in the global data 
segment. 



Page 113 



1.9.4.6 EXTERNAL REFERENCE DIRECTIVES 



The use of . DEF and , REF is similar to that of .PUBLIC. . DEFs 
and . REFs associate labels between assembly language routines rather 
than between an assembly routine and a Pascal host program. Just as 
with .PRIVATE and .PUBLIC* these external references must eventually be 
resolved by the Linker. If such resolution cannot be accomp 1 ished, the 
Linker will indicate the offending label. Naturally* the assembler 
cannot be expected to flag these errors* since it has no knowledge of 
other assemblies 



.DEF Identifies a label that is- defined- in the current routine 
and available to be used in other . PRQCs or . FUNCs. 

FORM. DEF Cidentif ierlist> 

EXAMPLE; <* see listing in section 3.3.2.3 for example *) 

.REF Identifies a label used in this routine which has been 
declared in an external . PROC or . FUNC with a .DEF. 
During the linking process* corresponding .DEFs and .REFs 
are matched. 

FORM: .REF <ident if ier 1 ist> 

EXAHPLE: (* see listing in section 3, 3. 2.. 3 for example *) 

Note: The .'.PROC ar)4 the? .FUNG directive also generates 
a DEF with the same name. This allows assembly 

procedures to call , PROC anti ...FUNCs if they have 
b^mn defined in a . REF. 

1. 9, 4. 7 LISTING CONTROL DIRECTIVES 



LIST Allows selective listing of .assembly routines., 

& If no output file is declared then the default is CONSOLE: 
NOLIST when a LIST is encountered. The . NOLI ST is used to turn off 

the .LIST option. Listing may be turned on and off 

repeatedly within an assembly, 

FORM: LIST or .NOLIST 

PAGE Allows the programmer to explicitly ask for top of form 
page breaks in the listing. 

Z& ¥io tUting output {ite i-6 ^pe.oX{ted then att .LIST and .NOLIST 
(LOitctLveA one AtmpZy tgnosied. 



FORM: . PAGE 

.TITLE Allows the titling of each page if desired. The title may be up 
to 80 characters in length. At the start of each procedure the 
title is set to blanks and must be reset if title is desired. 
The title,- 

INTERP 3YME0LTABLE DUMP 

shown in Section 1.9.1 was caused by a .TITLE directive. ** 

FORM .TITLE <title> 

where <title> is a string 

EXAMPLE . TITLE QRC12 interpreter 

1,9.4.8 FILE DIRECTIVES 

. INCLUDE Causes the indicated source file to be included at that point. 

FORM; .INCLUDE Cfile ident i f ier. TEXT> where the file 

identifier is any file to be included. Only spaces 
av& allowed between the end of the file name and the 
end of the Include line. 

CORRECT EXAMPLE: . INCLUDE SHORTSTART TEXT 

CORRECT EXAMPLE: .INCLUDE SHORTSTART. TEXT 

; calls starter 

IN -CORRECT EXAMPLE: .INCLUDE SHORTSTART. TEXT ; calls starter 



For a list of general errors and also notes on the ZSO and PDP-11 based 

ft\t% c h jn^s 5? e T<3 hie £?. 

** Hote: The tvtle : iA only cZeaxed at the hWit ofi the {XJLe. In section 1.9.1 the title 
SVUBOLTABLE VIM? loch not Aet by a .TITLE directive. That heading u> always 
uAed on page* containing i>ymboltable dump*. Upon a&kembling a {vJithen 
pnoo.ed.vJie the heading pntnted A.etuAni> to what it vooa i>et to begone the 
4 ymb citable dump. 
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Motes — 



* SYSTEM INTRINSICS * * Section 2. 1 * 
Version i. 5 September 1978 



WARNING 



Most of the UCSD intrinsics assume that users are fluent in the 
use of PASCAL and are experienced in the use of the system. Any 
necessary range or validity checks av& the responsibility of the user. 
Since some of these intrinsics do no checking for range validity, they 
may easily cause the system to tii% a horrible death. Those intrinsics 
which btq parti culari ly dangerous avo noted as such in their 
descriptions. 

PARAMETERS 

Required parameters ar® listed along with the function/procedure 
identifier. Optional parameters are in Csquare brackets!. The default 
values for these are in -Cmetabrac kets> on the line below them. 



NOTE 



Following are some definitions of terms used in these 

documents. They tend to take the place of formal parameters in the 
dummy declaration headers that preface each description of a particular 
routine/ or set of routines, 



ARRAY 
BLOCK 



a PACKED ARRAY OF CHARacters 
one disk block.- -C512 bytes> 



BLOCKS 
BLOGKNUMBER 



an INTEGER number of blocks 
an absolute disk block address 



BOOLEAN 

CHARACTER 

DESTINATION 

EXPRESSION 
FILE1D 



INDEX 

NUMBER 

RELBLOCK 

SIMPLVARIABLE 



any BOOLEAN value 

any expression which evaluates to a character 

a PACKED ARRAY OF CHARacters to write into or 

a STRING* context dependent 
part or all of an expression* to be specified 
a file identifier* must be 

VAR fileid: FILE OF <type>* 
or TEXT) 
or INTERACTIVE; 
or FILE; 
an index into a STRING or PACKED ARRAY OF CHARacters* 

context dependent or as specified, 
a literal or identifier whose type is either INTEGER 

or REAL. 
a relative disk block address* relative to the start 



of th& file in context* tft 



t block being 



block zero. 
any d&clarBd PASCAL variable which is of one of the 

f o 1 1 ay 1 n g TYPEs : 
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SIZE 

SOURCE 

SCREEN 
STRING 



TITLE 
UNITNUMBER 



VOL ID 



. BOOLEAN CHAR. REAL STRING 
or PACKED ARRAYC. . 3 OF CHAR 
an INTEGER number of bytes or characters; any integer 

va luff 
a STRING or PACKED ARRAY OF CHARacters to be used as a 

read-only arvayi, context dependent or as specified. ** 
an arva^ 9600 bytes long; or as needed, 
any STRING/ call-by-valu© unless otherwise specif ied, 

i.e. may be a quoted string, or string variable 

or function which evaluates to a STRING 
a STRING consisting of a file name 
physical device number used to determine device handler 

used by the interpreter 
a volume identifier, STRINGC73 



** 



t.e. in At/islng tntxlnklcb , SOURCE aj> goring to have to be a At/iing, In XyitAA.nki.QA> that 
deal with packed a/iAayA ofa chaJtacteu , it may be etthe/i. A mtid ofa caution 
about ui>tng STRING* tn tntninAtcA that expect chanacten. a/iAay*, the zeAoeth 
element Of} the, At/iing ti> the, length byte, which may cause the pKogfiammen. 
£>ome unexpected problem*. [WeAe he not auoasie o{± that fact,'.,) ed. 
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* STRING INTRINSICS * * Section 2. 1. 1 * 



Version I. 5 September 1978 
FUNCTION LENGTH < STRING > : INTEGER 

Returns the integer value of the length of the STRING. 

Example: 

GEESTR I NG := '1234567'; 

WR I TELN ( LENGTH ( GEESTR I HO > , ' ' , LENGTH ( ' ' ) ) ; 

Will print: 

7 O 

FUNCTION POS ( STRING , SOURCE ) : INTEGER 

This function returns the position of the first occurrence of 
the pattern in SOURCE to be scanned. The INTEGER value of the position 
of the first character in the matched pattern will be returned; or if 
the pattern was not found* zero will be returned. Example: 

STUFF :« 'TAKE THE BOTTLE WITH A METAL CAP'; 

PATTERN : = 'TAL'; 

WR I TELN ( POS < PATTERN, STUFF > ) / 

Will print: 

26 

FUNCTION CONCAT < SOURCES ) : STRING 

There may be any number of source strings separated by commas. 

This function returns a string which is the concatenation of 

all the strings passed to it. Example: 

SHORTSTRING :~ 'THIS IS A STRING'; 

LONGSTRING :« 'THIS IS A VERY LONG STRING. '; 

LONGSTRING := CONCAT < 'START ', SHORTSTRING, '- ', LONGSTRING) ; 

WR I TELN (LONGSTRING); 

Will print: 



START THIS IS A STRING-THIS IS A VERY LONG STRING. 
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FUNCTION COPY ( SOURCE , INDEX , SIZE ) : STRING 

This function returns a string containing SIZE characters 
copied from SOURCE starting at the INDEXth position in SOURCE. 
Example: 

TL :« 'KEEP SOMETHING HERE'; KEPT : = COPY (TL, PQSC 'S ', TL) , 9) ; 
WRITELN(KEPT); 

Will print: 

SOMETHING 

PROCEDURE DELETE ( DESTINATION , INDEX * SIZE ) 

This procedure removes .SIZE characters from DESTINATION 
starting at the INDEX specified. Example: 

OVERSTUFFED : = 'THIS STRING HAS FAR TOO MANY CHARACTERS IN IT. '; 
DELETE (OVERSTUFFED, PQSC 'HAS', OVERSTUFFED) +3, 8); 
WR ITELN < OVERSTUFFED ) i 

Will print: 

THIS STRING HAS MANY CHARACTERS IN IT. 

PROCEDURE INSERT ( SOURCE , DESTINATION , INDEX ) 

This inserts SOURCE into DESTINATION at the INDEXth position in 
DESTINATION. 

Exa?np le: 

ID : = 'INSERTIONS'; 
MORE :« ' DEMONSTRATE'; 
DELETE (MORE, LENGTH (MORE), i); 
INSERT (MORE, ID. PQSC '10', IP) >; 
WRITELM(ID); 

Will print: 

INSERT DEMONSTRATIONS 
PROCEDURE STR ( LONG , DESTINATION ) 
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This converts the long integer LONG into a string. The 
resulting string is placed in DESTINATION. See section 3.3.3 for more 
about the use of long integers. 



Example: 



INTLONG : = 102039503; 

STR< INTLONG, INTSTRING); 

INSERTC '. ', INTSTRING, PRED<LENGTH<INTSTRING))); 

WRXTELNC '*', INTSTRING)* 

Will print; 

$1020395, 03 



Note about using strings and string functions: 

In order to maintain the integrity of the LENGTH of a string, 
only string functions or full string assignments should be used to 
alter strings Moves and/or single character assignments do not affect 
the length of a string which means it probablu becomes wrong . The 
individual elements of STRING are of type CHAR and may be indexed 
1. . LENGTH (STRING). Accessing the string outside this range will have 
unpredictable results if range-checking is off or cause a run-time 
error (1) if range checking is on. 
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- Notes 



ag& X22. 



* INPUT AND OUTPUT INTRINSICS * * Section 2. 1.2 * 



PROCEDURE RESET < 
PROCEDURE REWRITE 



Version I. 5 September 1978 

FILEID* CTITLE3 )* 
C FILEID, TITLE >, 



These procedures open files for reading and writing and mark 
the file as open. The FILEID may be any PASCAL structured file* and 
the TITLE is a string containing any legal file title. 

The difference between them is that REWRITE creates a new file 
on disk for output files; RESET simply marks an already existing file 
open for I/O. (Note: if the device specified in the title is a non- 
directory structured device/ e.g. PRINTER: * then the file is opened 
for input* output, or both in either case. ) If the file was already 
open,, and another RESET or REWRITE is attempted to it, an error will be 
returned in IORESULT. The file's state will remain unchanged. 

RESET (FILEID) without optional string parameter "rewinds" the 
file by setting the file pointers back to the beginning (zero th 
record) of the file. The boolean functions EOF and EOLN will now be 
set by the implied GET in RESET. 



do an 



These procedures behave differently with files of type 
INTERACTIVE. RESET on files of types other than INTERACTIVE will 
initial GET to the file, setting the window variable to the first 
record in the file <as described in Jensen & Wirth). RESET on a file 
of type INTERACTIVE will not do an initial GET. 



PROCEDURE UN I TREAD ( 
PROCEDURE UNITWRITE < 



UNITNUMEER* 
UNITNUMBER, 



ARRAY* 


LENGTH, 


CBLOCKNUMBER3, 


C INTEGER 3 ), 


ARRAY* 


LENGTH, 


C8LOCKNUMBER3, 


C INTEGER 3 ); 






■C sequential > 


<. > 



THESE ARE DANGEROUS INTRINSICS 



These pro 
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The ARRAY is any 
indicate a starti 
do the transfers 
the number of byt 
using a block-str 
blocknumber at wh 
BLOCKNUMBER is le 
(assumed O) and i 
asynchronously, 
sufficient, (S^e 



cedures are the low-1 
The UNITNUMBER is th 
declared packed array 
ng position. This is 
from/to. The LENGTH 
es to transfer. The 
uctured device <i.e. 
ich the transfer will 
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evel procedures which do I/Os to 
e- integer name of an I/O device. 
t which may be subscripted to 

used as the starting address to 
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a disk) and is the absolute 

start from/to. If the 
The INTEGER value its optional 
the transfer is to be done 
t necessary. A f ,,n' \tiWL be 
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FUNCTION UNITBUSY < UNITNUMBER ) : BOOLEAN; 

This function returns a BOOLEAN value, indicating if TRUE that 
the device specified is waiting for an I/O transfer to complete. 

Example: 

UNITREAD<2-Cnon~echoing keyboards CHCQIh 

1-Cfor one character}-* -Cno block no. >» Hasynchronous)); 
WHILE UNITBUSY(2)-CWbile the READ has not been comp!eted> DO 
WR I TELNC OUTPUT* 'I am waiting for you to type something'); 
WR I TELN< OUTPUT, 'Thank you for typing a SCHCOD); 

Execution of this example will continuously type out the line 
'I am waiting for you to type something' until a character is struck on 
the keyboard, Suppose a '!' were typed. The message 'Thank you for 
typing a !' will then appear, and program execution will proceed 
normally. 

PROCEDURE UNITWAIT < UNITNUMBER ); 

This waits for the specified device to complete the I/O in 
progress. It can be simulated by: 

WHILE UNITBUSY (n> DO {waste a small amount of tiro?>* 



PROCEDURE UNITCLEAR ( UNITNUMBER )i 

UNITCLEAR cancels all I/Os to the specified unit an^i resets the 
hardware to its power-up state. 

FUNCTION BLOCKREAU ( FILEID, ARRAY, BLOCKS, CRELBLOCK3 ) : INTEGER; 
FUNCTION BLOCKWRITE ( FILEID, ARRAY, BLOCKS* C RELBLOCK. 3 ) : INTEGER; 

■C sequential > 

These functions return an INTEGER value equal to the number of 
blocks of data actually transferred. The FILE must be an untyped file 
(i.e. F: FILE; ). The length of ARRAY should be an integer multiple of 
by tes ~per~disk™b lot k , BLOCKS is the number of blocks you want 
transf e rv ed. RELBLOCK is the b loc knumber relative to the start of the 
file, the zeroeth block being the first block in the -file. If no 
RELBLOCK is specified* the reads/writes will be done sequentially. A 
random access I/O moves the file pointers. CAUTION should be exercised 
when using these* as the array bounds are not heeded, EOF(FILEID) 
becomes true when the last block in a file is read. 
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PROCEDURE CLOSE ( FILEID OPTION >• 



OPTION may be null or ' 
CRUNCH'. (Note the commas!) 



LOCKS or 



NORMAL ' , or 



PURGES or 



If OPTION is null then a NORMAL close is done, i.e. CLOSE 
simply sets the file state to closed. If the file was opened using 
REWRITE and is a disk file* it is deleted from the directory. 

The LOCK option uiill cause the disk file associated with the 
FILEID to be (isads permanent in the directory if the file is on a 
directory-structured device and the file was opened with a REWRITE; 
otherwise a NORMAL close is done. 

The PURGE option will delete the TITLE associated with the 
FILEID from the directory 



The unit will go off— line if the device is 



lack structured. 



The CRUNCH option is as yet undefined in what it will do. . 
The intent is to lock a file with the minimum number of blocks of 

useful information. 



All CLQSEs regardless of the option will mark the file closed 
and will make the implicit variable FILEID'"- undefined. CLOSE on a 
CLOSEed file causes no action. 



FUNCTION EOF (FILEID) : BOOLEAN i 
FUNCTION EOLN (FILEID) : BOOLEAN, 

If (FILEID) is not present, the fileid INPUT is assumed (e.g. 

IF EOF THEN. . . ), EOLN and EOF return false after the file specified is 
RESET. They both return true on a closed file. When EOF (FILEID) is 
true. FILEID'" is undefined. When GET (FILEID) sets FILEID^ to the EOLN 
character or the EOF character* EOLN (FILEID) will return true, and 
FILEID'' (in a FILE OF CHAR) will be set to a blank If* while doing 
puts or writes at the end of a file* the file cannot be expanded to 
accommodate the PUT or WRITE* EOF (FILEID) will return true. 



FUNCTION I.ORF.SULT 



INTEGER.* 



A f t e r any I/O operation; I OR ESULT c. o n 
corresponding to the values given in Table 2 



tains an INTEGER value 
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PROCEDURE GET ( FILEID ); 
PROCEDURE PUT ( FILEID ); 

These procedures are used for operations on typed -Piles. A 
typed file is any file for which a type is specified in the variable 
declaration* ie. 'FILEID : FILE OF <type>'. This is as opposed to 
untyped files which are simply declared as: ' FILEID: FILE; '. 'F: FILE 
OF CHAR' is equivalent to 'F: TEXT'. In a typed file each logical 
record is a memory image fitting the description of a variable of the 
associated <type>. 

GET (FILEID) will leave the contents of the current logical 
record pointed at by the file pointers in the implicitly declared 
"window" variable FILEID'** and increment the file pointers. 

PUT (FILEID) puts the contents of FILEID^ into the file at the 
location of the current file pointers and then updates those pointers. 

PROCEDURE READ-CLN> ( FILEID, SOURCE >; 
PROCEDURE WRITE-CLN> ( FILEID, SOURCE >; 

These procedures may be used only on TEXT (FILE OF CHAR) or 
INTERACTIVE files f or . I/O. If 'FILEID, ' is omitted, INPUT or OUTPUT 
(whichever is appropriate) is assumed. A READ(STRING) will read up to 
and not including the end-of-line character (<a carriage return>) and 
leave EGLN(FILEID) true. This means that any subsequent READs of 
STRING variables will return the null string until a READLN or 
READ(chararatter ) is executed. 

There are three files of type INTERACTIVE which are 
predeclared: INPUT, OUTPUT, and KEYBOARD. INPUT results in echoing of 
characters typed to the console device. KEYBOARD does no echoing and 
allows the programmer complete control of the response to user typing. 
OUTPUT allows the user to halt or flush the output. 

PROCEDURE PAGE ( FILEID > ; 

This procedure, as described in Jensen & Wirth (ibid. ), sends a 
top~of~-form (ASCII FF) to the file. 

PROCEDURE SEEK (FILEID, INTEGER ) ; 

This procedure changes the file pointers so that the next GET 
or PUT from/to the file uses the INTEGERth record of FILEID. Records in 
files are numbered from G. A GET or PUT must be executed between 
SEEK calls since two SEEKs in a row may cause unexpected, unpredictable 
junk to be held in the window and associated buffers. 



Section 2. 1. 3 reserved for future use 
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Notes 



Pjsno iDfi 



* LOW LEVEL GRAPHICS INTRINSICS * * Section 2. 1. 4 # 
Version I. 5 September 1978 

CAUTION (*o6erf only uxltk the. TERAK 8510a micAocomputeA*) 

These routines do no range checking of the parameters they are 
passed. If any of the paramters are "out of range'** these routines 
will happily move bit patterns throughout main memory, much to the 
dismay of the operating system and your program. 

See Table 4 for modes and penstates for these intrinsics, 

The DRAW intrinsics are available only for the Terak 8510a in 
this release. Additional display units will be supported in later 
releases* but no details are currently available. Probable implementa- 
tion^): Tektronix 4006. 

PROCEDURE VRAmLOCKiVAR SOURCE; SRCROW,SRCX,SRCV: INTEGER; MAR VEST; VSTROW,VSTX f VSTV '.INTEGER; 

CNTX,CNTY,MVE:WTB 

<* none of these are optional *> 

This procedure is written for the Terak 8510a graphic display 
mode. The TERAK screen displays words consecutively with the most 
significant bit of the word on the right. DRAWBL.OCK will work only on 
screens whose graphics operates in this manner. WARNING: No range 
checking is performed. 

DRAWBLOCK transfers a bit matrix SOURCE* which starts on an 
word boundary/ to a specified point (STARTY* STARTX) in the bit matrix 
SCREEN. All parameters are integers except SCREEN, which is a bit 
matrix of width ROWSIZE (i.e. BITMAP: PACKED ARRAYCO. . MAXR0W3 OF PACKED 
ARRAYCO. . ROWSIZE-1 3 OF BOOLEAN,) The SOURCE is SIZEX bits wide by 
SIZEY bits high. The First COPYX bits of each row are copied into the 
destination MODE is defined in TABLE 4. 

VAR 
PROCEDURE DRAWL INE (RANGE: INTEGER; VAR SCREEN; ROWMIVTH, XSTART, VSTART, VELTAX, 

VELTAV, PENSTATE: INTEGER); 
<* none of these btq optional *> 

In order the parameters are: INTEGER IDENTIFIER* ARRAY 
IDENTIFIER, and the remaining six* INTEGER EXPRESSION. RANGE will 
contain the results of a Radar scan. This parameter is untouched 
unless PENSTATE is sent as 4 The value returned is the number of dots 
that would have been drawn before encountering an obstacle. SCREEN may 
be subscripted to determine a starting position in the array. ROWWIDTH 
is the width of SCREEN in number of words* this determines how DRAWLINE 
will consider the rec tangularity of the array. XSTART is the starting 
horizontal coordinate* YSTART is the starting vertical coordinate. 
DELTAX is the distance to move in the horizontal plane. DELTAY is the 
distance to move in the vertical plane. PENSTATE controls the action 
taken; see TABLE 4. 

**Not&: Ml OhdVL to 04£ tlflQAQ. KOixtinQM, the. UAQA muAt add 

the declaration* ai> above., and the KeMeAved wold EXTERNAL; 
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* CHARACTER ARRAY MANIPULATIONS INTRINSICS * * Section 2. 1. 5 * 



Version I. 5 September 1978 



CAUTION 

These intrinsics are all byte oriented. Use them with car®. 
Read the descriptions carefully before trying them out as no range 
checking of any sort is performed on the parameters passed to these 
routines. The programmer should know exactly what he is doing before 
he does it since the system does not protect itself from these 
operations. 



FUNCTION SCAN ( LENGTH, PARTIAL EXPRESSION, ARRAY ) 



INTEGER) 



This function returns the number of characters from the 
starting position to where it terminated. It terminates on either 
matching the specified LENGTH or satisfying the EXPRESSION. The ARRAY 
should be a PACKED ARRAY OF CHARACTERS and may be subscripted to denote 
the starting point. If the expression is satisfied on the character at 
which ARRAY Us pointed* the value returned will be zero. If the length 
passed was negative* the number returned will also be negative, and the 
function will have scanned backward. The PARTIAL EXPRESSION must be of 
the form: 



"<>" or " = " followed by -Ccharacter ex press ion> 



Examp les: 



Using the arraij 

DEM := ' THE TERAK IS A MEMBER OF THE PTERODACTYL FAMILY. ' 



SCAN < ~26, =': ', DEMC30.1 > ; 

SCAM £ 100. €>\ ', DEN); 
SCAN<15,^' ', DEMTOH); 



will return -26 
will return 5 
will return 8 



PROCEDURE MOVELEFT < SOURCE, DESTINATION. LENGTH ); 
PROCEDURE MQVERXGHT ( SOURCE, DESTINATION, LENGTH ); 
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These functions do mass moves of bytes for the length 
specified. MOVELEFT starts from the left end of the specified source 
and moves bytes to the left end of the destination. MOVERIGHT starts 
from the right ends of both arrays and also moves byte by byte. 

These procedures uiill optimize to word moves (in the 11 
version) if at all possible. MOVERIGHT never attempts this 
optimization* MOVELEFT will optimize only if the destination is at an 
address below the I/O page. (The reason for not doing word moves to 
the I/O page is that some hardware relies on byte addressing in this 
address space. ) 

In short: MOVELEFT starts at the left end of both arrays and 
copies bytes traveling right. MOVERIGHT starts at the right end of 
both arrays and copies bytes traveling left. The reason for having 
both of these is if you are working in a single avra^ and the order in 
which characters are moved is critical. The following chart is an 
attempt to show what happens if you use the procedure which moves in 
the wrong direction for your purposes. 



VAR ARAY: PACKED ARRAY CI. .303 OF CHAR; 



(#123456789al23456789b 123456789c*) 
ARAY: STHIS IS THE TEXT IN THIS ARRAY 

MOVERIGHT (ARAY CIO 3, ARAYC13, 10! 
ARAY: INE TEXT INE TEXT IN THIS ARRAY 

MOVELEFT ( AR AY 1 1 3 , AR A Y C 3 3 /l O > 
ARAY: INENENENENENETEXT IN THIS ARRAY 

MOVELEFT < ARAY C 23 3, ARAYC23, 8); 
ARAY: SNIS ARRAYENETEXT IN THIS ARRAY 



PROCEDURE FILLCHAR < DESTINATION, LENGTH, CHARACTER ); 

This procedure takes a tsubscr ipted ) PACKED ARRAY OF CHARACTERS 
and fills it with the number (LENGTH) of CHARACTERS specified. This 
can be done by: 

AC03 := Character expression^ 
MOVELEFT (ACQ 3* AC13, n~l); 

but FILLCHAR is twice as fast* as no memory reference is needed for a 
source. 



See the note about word move optimization in the section 
MOVELEFT. The notes about MOVELEFT also apply to FILLCHAR, 



on 



The intrinsic SIZEOF (Section 2. 1. 6) is meant for use with 
these intrinsics* it is convenient not to have to figure out or 
remember the number of bytes in a particular data structure. 
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* MISCELLANEOUS ROUTINES * * Section 2. 1. 6 * 
Version I. 5 September 1978 

FUNCTION SIZEOF ( VARIABLE OR TYPE IDENTIFIER ) : INTEGER* 

This function returns the number of bytes that the "item" 
passed as a parameter occupies in the stack. SIZEOF is particularly 
useful for FILLCHAR and MOVExxxx intrinsics. 

FUNCTION LOG < NUMBER > : REAL; 

This function returns the log base ten of the NUMBER passed as 
a parameter- 

PROCEDURE TIME <VAR HI WORD, LOWORD INTEGER)* 

This procedure returns the current value of the system clock. 
It is in 60ths of a second. (This is somewhat hardware-dependent* we 
assume a 16-bit integer size ar,d 32-bit clock word. The HIWORD 
contains the most significant portion. WARNING! The sign of the LOWORD 
may be negative since the time is represented as a 32-bit unsigned 
number. ) Both HI WORD and LOWORD must be VARiables of type INTEGER. 

FUNCTION PWROFTEN (EXPONENT INTEGER) : REALi 

This function returns the value of 10 to the EXPONENT power. 
EXPONENT must be an integer in the range O. . 37. 

PROCEDURE MARK CVAR HEAPPTR: ~ INTEGER) 
PROCEDURE RELEASE (VAR HEAPPTR: ~ INTEGER ); 

These procedures are used for returning dynamic memory 
allocations to the system. HEAPPTR is of type ~ INTEGER. MARK sets 

HEAPPTR to the current top-of-heap. RELEASE sets top -of -heap pointer 
to HEAPPTR. 



PROCEDURE HALT; 

This procedure generates a HALT opcode that* when executed* 
causes a non-fatal run-time error to occur. At this point in 
execution,- the Debugger is invoked* therefore* if the Debugger is not 
in core when this occurs* a fatal run-time error* #14* will occur. 



PROCEDURE GOTOXY < XCOORD * YCOORD )* 

This procedure sends the cursor to the coordinates specified by 
(XGOORD* YCOORD). The upper left corner of the screen is assumed to be 
(0*0). This procedure is written to default to a Datamedia-type 
terminal. If your system uses other than a Datamedia or Terak 8510a* 
you will need to bind in a new GOTOXY using the GOTOXY package 
described in Section 4. 10. 

Page 133 



Mor^s. — 



Paqe 134 



**-**»*****»***■*******#****** #####»#############■»•*###•«•####* ft***********"*** 
* DIFFERENCES BETWEEN U. C. S. D. PASCAL AND STANDARD PASCAL* * Section 2. 2 * 

Version I. 5 September 1978 

This section is a summary and quick referrence guide which 
notes the areas in which U. C. S. D. Pascal differs from the Standard 
Pascal* and refers the user to the appropriate documents which explain 
various aspects of U. C. S. D. Pascal. The Standard Pascal referred to by 
this section is defined in PASCAL USER MANUAL AND REPORT (2nd edition) 
by Kathleen Jensen and Niklaus Wirth (Spr inger -Ver lag* 1975). 

Many of the differences lie in the area of FILES and I/O in 
general. It is recommended that the reader first concentrate upon the 
sections which describe the differences associated with the standard 
procedures EOF. EQLN* READ* WRITE* RESET* and REWRITE. 

2. 2. 1 CASE STATEMENTS 

Jensen and Wirth on page 31* state that if there is no label 
equal to the value of the case statement selector* the result of the 
case statement is undefined. U. C. S. D. Pascal defines that if there is 
no label matching the value of the case selector then the next 
statement executed is the statement following the case statement. For 
example* the following sample program will only output the line "THAT'S 
ALL FOLKS" sine© the case statement will "fall through" to the WRITELN 
statement following the case statement: 

PROGRAM FALLTHROUGHi 

VAR CH:CHAR; 

BEGIN 

CH: = 'A'* 

CASE CH OF 

B'\ WRITELN (OUTPUT, 'HI THERE')* 
'C: WRITELN (OUTPUT, 'THE CHARACTER IS A "C ' " ) 

END* 

WR I TELN ( OUTPUT , ' THAT ' ' S ALL FOLKS ' ) * 
END. 

Contrary to the syntax diagrams for Cfield list> on pages 116- 
118 of Jensen and Wirth* the U. C. S. D. Pascal compiler will not permit a 
semicolon before the "END" of a case variant field declaration within a 
RECORD declaration. See Table 6 for revised syntax diagrams for <field 
list>. 
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2. 2. 2 COMMENTS 

The U. C. S. D. Pascal compiler recognizes any text appearing 
between either the symbols "(*" and "*)' 1 or the symbols "*€" and ">" as 
a comment. Text appearing between these symbols is ignored by the 
compiler unless the first character of the comment is a dollarsign* in 
which case the comment is interpreted as a compiler control comment. 
See section 1.6 "Pascal Compiler" for details on compiler control 
comments. 

Note that if the beginning of the comment is delimited by the 
"<*" symbols the end of the comment must be delimited by the matching 
"*>" symbol* rather than the ">" symbol. When the comment begins with 
the "<" symbol) the comment continues until the matching ">" symbol 
appears. This feature allows a user to "comment out" a section of a 
program which itself contains comments. For example: 

•C XCP := XCP + 1; <* ADJUST FOR SPECIAL CASE... *> > 

Note that the compiler does not keep track of nested comments. 
When a comment symbol is encountered! the text is scanned for the 
matching comment symbol. The following text will result in a syntax 
error: 

<* THIS IS A COMMENT (* NESTED COMMENT *) END OF FIRST COMMENT •» ) 

'"error here.. 

2. 2. 3 DYNAMIC MEMORY ALLOCATION 

The standard procedure DISPOSE defined on page 158 of Jensen 
and Wirth is not implemented in U. C. S. D. Pascal. However, the function 
of DISPOSE can be approximated by a combined use of the U, C. S. D. 
intrinsics MARK and RELEASE. The process of recovering memory space 
described below is only an approximation to the function of DISPOSE as 
one cannot explicitly ask that the storage occupied by one particular 
variable be released by the system for other uses. 

The current U. C. S. D implementation allocates storage for 
variables created by use of the standard procedure NEW in a stack-like 
structure called the "heap". The following program is a simple 
demonstration of how MARK and RELEASE can be used to change in the size 
of the heap. 

PROGRAM SMALLHEAP; 

TYPE PERSON^ 
RECORD 

NAME. PACKED ARRAVCO. 151 OF CHAR; 
ID: INTEGER 
END; 
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VAR P: ""PERSON; (* ,, " k " 
HEAP: -^INTEGER; 



means "pointer to" as defined in J&W *) 



BEGIN 

MARK ( HEAP); 

NEWCP); 

P"\ NAME:='FARKLE, 

P^\ ID:« 999; 

RELEASE < HEAP); 
END. 



HENRY J. 



The above program first calls MARK to place the address of the 
current top of heap into the variable HEAP. HEAP being declared to be 
a pointer to an INTEGER is not really important* as HEAP could have 
been declared as pointing to almost anything. The parameter supplied 
to MARK must be a pointer variable; but need not be a pointer that is 
declared to be a pointer to an INTEGER. This is a particularly handy 
construct for deliberately accessing the contents of memory which is 
otherwise inaccessab le. Below is a pictorial description of the heap 
at this point in the program's execution: 



TOP OF HEAP — > 



contents of heap at 
start of program 



HEAP 



Next the program calls the standard procedure NEW and this 
results in a new variable P" which is located in the heap as shown in 
the diagram below: 



TOP OF HEAP > 



contents of heap at 
start of program 



— HEAP 
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Once the program no longer needs the variable P A and wishss to 
"release" this memory space to the system for other uses* it calls 
RELEASE which resets the top of heap to the address contained in the 
variable HEAP. 

If the above sample program had made a series of calls' to the 
standard procedure NEW between the calls to HARK aval RELEASE* the 
storage occupied by s@v&r&l variables would have been released at 
once. Note that due to the stack nature of the heap it is not possible 
to release the memory space used by a single item in the middle of the 
heap. It is for this reason the use of MARK and RELEASE can only 
approximate the function of DISPOSE as described in Jensen and Wirth. 

Furthermore^ it should be noted that careless use of the 
intrinsics MARK and RELEASE can lead to "dangling pointers 11 ! pointing 

to ar&as of memory which are no longer part of the ti®$insd heap space. 

2, 2. 4 EOF(F) 

To set EOF to TRUE for a textfile F being used as an input file 
from the CONSOLE device, the user must type the EOF character. The 
system default EOF character is the control-C character. The EOF 
character can be altered by a suitable reconfiguration of the system 
variable SYSCQM'\ CRTINFO. EOF using SETUP. For further information 
concerning system configuration and the SETUP program see Section 4. 3. 

If F is closed* for any FILE F* EOF"(F) will return the value 
TRUE If EOF(F) is TRUE , and F is a FILE of type TEXT, EOLNCF) is 
also TRUE. After a RESET(F), EQF(F> is FALSE If EOF(F) becomes TRUE 
during a GET(F) or a READCF, . . . ) the data obtained thereby is not 
va 1 i d . 

When a user program starts execution, the system performs a 
RESET on the predeclared files INPUT, OUTPUT, and KEYBOARD See 
section 2.2. 11 READ for further details concerning the predeclared file 
KEYBOARD. 

As defined in Jensen and Wirth, EOF anti. EOLN by default will 
refer to the file INPUT if no file identif isv is specified. 

2. 2. 5 EOLN(F) 

EOLNCF) is defined only i f F is a tex tf i l'e. F is a -text-file if 
the <type> of the window variable.- F'S is of type CHAR, EOLN becomes 
TRUE only after reading the end of line character. The end of line 
character is a carr iage return In the example program below, care 
must be taken as regards when the carriage return is typed while 
input ing data: 



Paae 138 



PROGRAM ADBLINESi 
VAR K* SUM: INTEGER; 

BEGIN 

WHILE NOT EOF( INPUT) DO 
BEGIN 
SUM: ^0; 

READC INPUT, K); 
WHILE NOT EOLN( INPUT) DO 
BEGIN 

SUH: =SUM+K, 
READC INPUT* K); 
END; 
WRITELN( OUTPUT); 

WRITELNCOUTPUT* THE SUM FOR THIS LINE IS '* SUM)* 
END? 
END. 

In order for EOLN(F) to be TRUE in the above programj the 
carriage return must be typed immed lately after the last digit of the 
last integer on that line. If instead a space is typed followed by the 
carriage return* EOLN will remain FALSE and another READ will take 
piece. 



2. 2. 6 FILES 

Changes were made in order to bring U. C. S. D. Pascal closer to 
the standard definition of the language. 

A. INTERACTIVE FILES 

Files of <type> INTERACTIVE behave exactly as files of <type> 
TEXT. The standard pved&clared files INPUT and OUTPUT will always be 
defined to be of <type> INTERACTIVE. All files of any <type> other 
than INTERACTIVE* are defined to operate exactly as described in Jensen 
and Wirth For files which are not of <type> INTERACTIVE* the 
definitions of EOF<F>* EOLN<F)* and RESET(F) are exactly as presented 
in Jensen and Wirth Fqt more details concerning files of <type> 
INTERACTIVE see section 2.2.11 "READ AND READLN" and section 2.2.12 
"RESET** and section 2.1.2.. 



B, UNTYPED FILES 



U.C S. D. Pascal has one type of file declaration which in not 
found in the syntax of Jensen and Wirth. This type and its use is 
demonstrated in the sample program below: 
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<**I~*> 

PROGRAM FILEDEMO; 

VAR Q, F: FILE; 

BUFFER: PACKED ARRAY CO. . 5U 3 OF CHAR; 
BLOCKNUMBER, BLOCKSTRANSFERRED: INTEGER; 
BADIO: BOOLEAN; 

<* This program reads a diskfile called 'SOURCE, DATA" and 

copies the file into another diskfile called 'DESTINATION' 
using untyped files and the intrinsic* 3LOCKREAD and 
BLOCKWRITE *) 

BEGIN 

BADIO: =*FALSE; 
RESET <G> 'SOURCE. DATA' >; 
REWR I TE ( F , ' DEBT I NAT I ON ' ) i 
BLOCKNUMBER: =0; 

BLOCKSTRANSFERRED: =BLGCKREAD< G> BUFFER, 1 4 BLOCKNUMBER > i 
WHILE <NOT EOF<G>) AND (I0RE3ULT=0> AND (NOT BADIO) AND 
(BLOCKSTRANSFERRED-!} DO 
BEGIN 

BLOCKSTRANSFERRED: =BLOCKWRITE<F, BUFFER, U BLOCKNUMBER); 
BADIO: = ( < BL0CKSTRANSFERREDC1 > OR < I0RESULTO0) ) ; 
BLOCKNUMBER : =BLOCKNUMBER+ I * 

BLOCKSTRANSFERRED: =*BLOCKREAD(G, BUFFER, 1, BLOCKNUMBER > ; 
END; 
CLOSE <Fi LOCK); 
END. 

The two files which are declared and used in the above sample 
program are both untyped files. An untyped file F can b& thought of as 
a file without a window variable F" to which ail I/O must be 
accomplished by using the functions BLOCKREAD and BLOCKWRITE, Note 
that any number of blocks can be transferred using either BLOCKREAD or 
BLOCKWRITE. The functions return the actual number of blocks read. A 
somewhat sneaky approach to doing a quick transfer would be: 

WHILE BLOCKWRITE <F, BUFFER. BLOCKREAD < G. BUFFER, BUF3L0CKS) )>0 DO <*IT*>; 

This is» however considered unclean. The program above has 
been compiled using the I-Compile Time Option.- thereby requiring that 
the function IORESULT ami the number of blocks transferred be checked 
after each BLOCKREAD or BLOCKWRITE in order to detect any I/O errors 
that might have occurred. 
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C. RANDOM ACCESS OF FILES 

The U. C. S. D. implementation of structured files supports the 
ability to randomly access individual records within a file by means of 

the intrinsic SEEK. SEEK expects two parameters* the first being the 
file identifier/ and the second; an integer specifying the record 
number to which the window should be moved. The first record of a 
structured file is numbered record O. The following sample program 
demonstrates the use of SEEK to randomly access and update records in a 
file: 

PROGRAM RANDOMACCESSi 
VAR DISK: FILE OF 
RECORD 

NAME: STRING t203* 
DAY, MONTH* YEAR: INTEGER; 
ADDRESS: PACKED ARRAYCO. . 493 OF CHAR; 
ALIVE: BOOLEAN 
END, 
RECNUMBER : INTEGER; 
CH: CHAR; 

BEGIN 

RESETCDISK, 'RECORDS. DATA'); 
WHILE NOT EOF < INPUT) DO 
BEGIN 

v4RITE (OUTPUT, 'Enter record number > ' ) ; 

READ < INPUT, RECNUMBER ) > 
SEEK < D I SK , REC NUMBER ) i 
GET (DISK), 
WITH DISK"' DO 
BEGIN 

WRITELN< OUTPUT, NAME, DAY, MONTH> YEAR, ADDRESS); 

WRITECOUTPUTi 'Enter correct name >'); 

READLN < INPUT, NAME ) ; 



END; 

SEEK (DISK, RECNUMBER,) i-. <* Must point the window 

back to the record since 
GET(DISK) advances the 
window to the next record 
after loading DISK'^ *) 

PUT<DISK); 
END; 
END. 
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Attempts to PUT records beyond the physical end of file will 
set EOF to the value TRUE. (The physical end of file is the point 
where the next record in the file will overwrite another file on the 
disk. ) SEEK always sets EOF and EOLN to FALSE. The subsequent GET or 
PUT will set these conditions as is appropriate. 

D. READ AND WRITE FROM ARBITRARILY TYPED FILES 

It is not currently possible fca READ or -WRITE to Files of type 
other than TEXT or FILE OF CHAR. 



2.2.7 GOTO AND EXIT STATEMENTS 

U. C. S. D, has a more limited form of GOTO statement than is 
defined as the standard in Jensen and Wirth. U. C. S. D. 's GOTO statement 
prohibits a GOTO statement to a label which is not within the same 
block as the GOTO statement itself. The examples presented on pages 31- 
32 of Jensen and Wirth are not legal in U. C. S. D. Pascal. 

EXIT is a U. C. S. D. extension which accepts as its single 
parameter the identifier of a procedure to be exited. Note that the 
use of an EXIT statement to exit a FUNCTION can result in the FUNCTION 
returning undefined values if no assignment to the FUNCTION identifier 
is made prior to the execution of the EXIT statement. Below is an 
example of the use of the EXIT statement: 

PROGRAM EXITDEMQ; 
VAR T: STRING; 

CN: INTEGER; 

PROCEDURE Q; FORWARD; 



PROCEDURE P; 








BEGIN 








READLN(T); 








WRITELN(T); 








IF Tcn='r 


THEN 


EXIT(G); 


WRITELNC 'LEAVE 


P ' 


'); 


END; 








PROCEDURE G; 








BEGIN 








Pi 








WRITELN( ' LEAVE 


G 


'); 


END; 
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PROCEDURE R* 
BEQ1H 

IF CN <= 10 THEN G; 

WR1TELN( 'LEAVE R '); 
END; 

BEGIN 
CN: =0; 

WHILE NOT EOF DO 
BEGIN 

CH: =CN+1; 
R * 

WRITELN, 
END j 
END. 



If the above prnqv-am were supplied the following input 

THIS IS THE FIRST STRING 

# 

LAST STRING 

the following output will result: 

THIS IS THE FIRST STRING 
LEAVE P 
LEAVE G 
LEAVE R 

# 

LEAVE R 

LAST STRING 
LEAVE P 

LEAVE Q 
LEAVE R 

The EX'IKG) statement causes the PROCEDURE P to be terminated 
followed by the PROCEDURE G. Processing continues following the call 
to G inside PROCEDURE R. Thus the only line of output following "#" is 
"LEAVE R ,! at the end of PROCEDURE R. In the two cases where the 
EXITCQ) statement is not executed* processing proceeds normally through 
the terminations of procedures P and Q. 

If the procedure identifier passed to EXIT is a recursive 
procedure* the most recent invocation of that procedure will be 
exited. If/ in the above example, one or both of the procedures P and 
Q declared and opened some local filesi an implicit CLOSE(F) is done 
when the EXIT<Q) statement is executed., as if the procedures P and Q 
terminated normally 
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The creation of the EXIT statement at U. C. S. D. was inspired by 
the occasional need for a straightforward means to abort a complicated 
and possibly deeply nested series of procedure calls upon encountering 
an error. An example of such a use of the EXIT statement can be found 
in the recursive descent U. C. S. D. Pascal compiler. The routine use of 
the EXIT statement iSi nevertheless* discouraged. 



2. 



8 



PACKED VARIABLES 



A. PACKED ARRAYS 

The U. C. S. D. compiler mill perform packing of arrays and 
records if the ARRAY or RECORD declaration is preceded by the word 
PACKED. For example, consider the following declarations: 

A: ARRAYCO. . 93 OF CHAR; 

B: PACKED ARRAYCO. . 93 OF CHAR; 

The array A will occupy ten 16 bit words of memory, with each 
element of the arra^ occupying i word. The PACKED ARRAY B on the other 
hand will occupy a total of only 5 words* since each 16 bit word 
contains two 8 bit characters. In this manner each element of the 
PACKED ARRAY B is 8 bits long. 

PACKED ARRAYS need not be restricted to arrays of type CHAR, 
for example: 

C: PACKED ARRAYCO. .13 OF O. . 3; 

D: PACKED ARRAYC1. . 93 OF SET OF O. . 15; 

D2: PACKED ARRAYCO. . 239, 0. . 3191 OF BOOLEAN; 

Each element of the PACKED ARRAY C is only 2 bits long* since 
only 2 bits are needed to represent the values in the range 0. . 3. 
Therefore C occupies only one 16 bit word of memory* and 12 of the bits 
in that word are unused. The PACKED ARRAY D is a 9 word arrant since 
each element of D is a SET which can be represented in a minimum of 16 
bits. Each element of a PACKED ARRAY OF BOOLEAN* as in the case of D2 
in the above example* occupies only one bit. 

The following 2 declarations are not equivalent due to the 
recursive nature of the compiler: 

E: PACKED ARRAYCO ,93 OF ARRAYCO .33 OF CHAR; 

F: PACKED ARRAYCO. . 9* 0. . 33 OF CHAR; 
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The second occurrence of the reserved word ARRAY in the 
declaration of E causes the packing option in the compiler to be turned 
off E becomes an unpacked array of 40 words. On the otherhand/ the 
PACKED ARRAY F occupies 20 total words because the reserved word ARRAY 
occurs only once in the declaration. If E had been declared as 

E: PACKED ARRAY CO. . 93 OF PACKED ARRAY CO. . 31 OF CHARi 

or as 

E: ARRAYCO. . 93 OF PACKED ARRAYCO. . 33 OF CHAR; 

F and E would have had identical configurations. 

The reserved word PACKED only has true significance before the 
last appsavanc* of the reserved word ARRAY in a declaration of a PACKED 
ARRAY. When in doubt a good rule of thumb when declaring a 
multidimensional PACKED ARRAY is to place the reserved word PACKED 
before every appearance of the reserved word ARRAY to insure that the 
resultant array will be PACKED, 



srray will only be packed if the final type of 
• subrange, or a set which can be represented in 
.rial tupe can also be BOOLEAN or CHAR. The 



The resultant 
the arvsq is scalar; or 
S bits or less 

following declaration will _ _ r ., 

final type of the array cannot be represented in a field of 8 bits: 



The final type can also be BOOLEAN or CHAR. 

result in no packing whatsoever because 



the 



£■: PACKED ARRAYCO. . 33 OF 0. . 1000; 



wi x 



an 



ay which occupies 4 16 hit words. 



Packing never occurs across word boundaries. This means that 
if the type of the element to be packed requires a number of bits which 
does not divide evenly into 16» there will be some unused bits at 
the high order end of each of the words which comprise the array. 

Note that a string constant may be assigned to a PACKED ARRAY 

OF CHAR but not to an unpacked ARRAY OF CHAR. Likewise, comparisons 
between an ARRAY OF CHAR and a string constant sr e illegal. (These are 
temporary implementation restrictions which will be removed in the next 
major release, ) Because of their different sizes* PACKED ARRAYs cannot 
be compared to ordinary unpacked ARRAYs. For further information 
regarding PACKED ARRAYs OF CHARacters see section 2.2.16 "STRINGS". 

A PACKED ARRAY OF CHAR may be output with a single write statement 

PROGRAM VERY3LICK; 

VAR T. PACKED ARRAYED. . 101 OF CHAR; 
BEQIN 

T: « 'HELLO THERE'; 

WRITELN<T>; 
END. 
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Initialization of a PACKED ARRAY OF CHAR can be accomplished 
very efficiently by using the U. C. S. D. intrinsic* FILLCHAR and SIZEOF 

PROGRAM FILLFAST; 

VAR A: PACKED ARRAYCG. . 103 OF CHAR; 

BEGIN 

FILLCHAR (AL01, SI ZEOFi A)* ' '); 
END. 

The above sample program fills the entire PACKED ARRAY A with 
blanks. For further documentation on FILLCHAR* SIZEOF, and the other 
U. C.S. D. intrinsics see section 2.1.5 "CHARACTER ARRAY MANIPULATION 
INTRINSICS". 

B. PACKED RECORDS 



The following RECORD declaration declares a 
fields. The entire RECORD occupies one 16 bit word 
declaring it to be a PACKED RECORD. 

VAR R: PACKED RECORD 

I, J, K: O. . 31/ 
B: BOOLEAN 
END; 



RECORD with 4 
as a result of 



The variables 
boolean variable B is 



I* Jj K each 
allocated to 



take up 
the 16' 



5 bits in the word. The 
;h bit of the same word. 



In much the same manner that PACKED ARRAYs can be 
multidimensional PACKED ARRAYs, PACKED RECORDS may contain fields which 
themselves are PACKED RECORDS or PACKED ARRAYS. Again, slight 
differences in the way in which declarations are ma^i& will affect the 
degree of packing achieved. For example/ note that the following two 
declarations are not equivalent: 



VAR 



PACKED RECORD 
INTEGER, 
PACKED RECORD 
R; CHAR/ 
K: BOOLEAN 
END; 
PACKED ARRAY CO. 



31 OF CHAR 



END; 



VAR B: 


PACKED RECORD 








C: 


INTEGER/ 








F: 


RECORD 
R:CHAR; 
K: BOOLEAN 

END; 








H: PACKED ARRAYCO. . 


33 


OF 


CHAR 


ENDi 











As with the reserved word ARRAY/ the vB%%rv&iJi word PACKED must 
appear with every occurrence of the reserved word RECORD in order for 
the PACKED RECORD to retain its packed qualities throughout all fields 
of the RECORD. In the above example; only RECORD A has all of its 
fields packed into one word. . In B* : the F field is not packed and 
therefore occupies two 16 bit. words'. It is . important to note that a 
packed or unpacked ARRAY or RECORD which is a field of a PACKED RECORD 
will always start at the beginning of the next word boundary. This 
means that in the case of A* even though the F field does not 
completely fill one word/ the H field starts at the beginning of the 



D ~i r. n -1 -<1 JL 



next wor.d boutidary, 

A ca~,® variant may he used as the last field of a PACKED 
RECORD/ and the amount of space allocated to it will be the size of the 
largest variant amoung the various cases. The actual nature of the 
packing is far beyond the scope of this document. 



VAR K; PACKED RECORD 
B: BOOLEAN; 
CASE F: BOOLEAN OF 
TRUE: (Z: INTEGER); 
FALSE: <h: PACKED ARRAYCO. 
END 
END, 



33 OF CHAR) 



In the above example the B and F fields are stored in two bits 
of the first 16 bit word of the record. The remaining 14 bits are not 
used. The size of the case variant field is always the size of the 
largest variant/ so in the above example* the case variant field will 
occupy two words. Thus the entire PACKED RECORD will occupy 3 words. 



USINQ PACKED VARIABLES AS PARAMETERS 



No element of -j PACKED ARRAY C r field of a PACKED RECORD may be 
passed as a variable (call-by-refergnce) parameter to a PROCEDURE or 

FUNCTION. Packed variables may* however, be passed ss call by value 
parameters* as stated in Jensen and Wirth, 



D. 



PACK AMD UNPACK STANDARD PROCEDURES 



U. C. 8. D, Pascal does not support the standard procedures PACK 
and UNPACK as defined in -Jensen and Mirth on page 106. 



2-~ 
. c 



PARAMETRIC PROCEDURES AND FUNCTIONS 



PS" 



U. C. 5. D. rascal does not support the construct in which 
.PURF.S ?>r.d FUNCTIONS may be declared as formal parameters in the 



I: 



list 



a PROCEDURE or FUNCTION. 



list; 



iec tier 



for a revised syntax diagram of <parameter- 



2. 2. 10 PROGRAM HEADINGS 

Although the U. C. S. D. Pascal compiler will permit a list of 
file parameters to be present following the program identifier* these 
parameters av& ignored by the compiler and will have no affect on the 
program being compiled. As a result the following two program headings 

are equivalent. 
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PROGRAM DEMO (INPUT, OUTPUT); and PROGRAM DEMO; 



With either of the above program headings* a user program will 
hav& three files predeclared and opened fey the system. These are: 
INPUT, OUTPUT, and KEYBOARD and are defined to be of <type> 
INTERACTIVE. If the program wishes to declare any additional files* 
these file declarations must be declared together kfith the program's 
other VAR declarations. 



2. 2. 11 READ AND READLN 

Given the following declarations: 

VAR CH:CHAR; 

F: TEXT; <* TYPE TEXT = FILE OF CHAR •*) 

the statement 'READ<F> CH) is defined by Jensen ami Wirth on page 85 to 
be equivalent to the two statement sequence: 

CM: «F-N 
GETCF); 

In other words* the standard definition of the standard 
procedure READ requires that the process of opening a file load the 
"uiindoui variable" F' N u/ith the first character of the file. In an 
interactive programming environments it is not convenient to require a 
user to type in the first character of the input file at the time when 
the file is opened. If this were the .case, every program would "hang" 
until a character uias typed/ whether or not the program performed any 
input operations at all. In Qvdev to overcome this problem* U. C, S. D. 
Pascal defines an additional file <type> called INTERACTIVE, Declaring 
a file F to be of <type> INTERACTIVE is equivalent to declaring F to be 
of type TEXT* the difference being that the definition of the statement 
■READ (F/ CM) is the reverse of the sequence specified by the standard 
definition for files of <type> TEXT: i. s. 

Q.ETCF); 
CM:=F-*-j 

This difference affects the way in .which EOLN must be used 
within a program whenreading from a textfile of type INTERACTIVE. As 

in section 5 , EOLN becomes true only after- reading the &nd of line 
character, a carriage return. When this is read, EOLN is set to true 
and the character returned as a result of the READ mill be a blank. In 
the following example , the left fragment is taken from Jensen and 
Wirth; only the RESET anti REWRITE statements have been altered. The 
program on the left will correctly copy the textfile represented by the 
file X to the file Y, The program fragment on the right performs a 
similiar task/ except that the source file being copied is declared to 
be a file of <type> INTERACTIVE.- thereby forcing a slight change in the 
program in order to produce the desired result. 
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PROGRAM UANDW; 
VAR X, Y: TEXT; 
CH: CHAR; 
BEGIN 

RESET (X, 'SOURCE. TEXT')) 
REWRITECY, 'SOMETHING. TEXT 
WHILE NOT EOF(X) DO 
BEGIN 

WHILE NOT EOLN<X) DO 
BEGIN 

READCX* CH); 
WRITE<Y, CH); 

END J 
READLN<X); 
WR I TELN ( Y ) ; 

CLOSE *Y, LOCK); 
END, 



); 



PROGRAM UCSDVERSION; 
VAR X/ Y: INTERACTIVE; 

CH.CHAR; 
BEGIN 

RESET<X* 'CONSOLE: '); 
REWRITE(Y, 'SOMETHING. TEXT'); 
WHILE NOT EOF(X) DO 
BEGIN 

WHILE NOT EOLN(X) DO 
BEGIN 

READ<X, CH); 
IF NOT EOLN(X) THEN 
WRITE(YiCH); 
END; 
READLN(X); 
WRITELN(Y); 
END; 
CLOSE <Y, LOCK); 
END. 



Note that the text files X 
to be opened by using the U. C. S. D. 
procedures RESET and REWRITE. 



and Y in the above two programs had 
extended form of the standard 



The IF statement in the interactive version of the program 
fragment on the left is needed in order for the file Y to become an 
exact copy of the textfile X. Without the IF statement* an extra blank 

character is appended to the end of each line of the file Y. This 
extra blank corresponds to the end of line character according to the 
standard definition in Jensen and Wirth. Note that the CLOSE intrinsic 
mas applied to the file Y in both versions of the program in order to 
make it a permanent file in the disk directory called 

"SOMETHING. TEXT". Likewise, the textfile X could have been a diskfile 
instead of coming from the CONSOLE device in the right hand version of 
the program. 

There ave three pvedeclav&6 textfiles which are automatically 
opened by the system for a user program. These files are INPUT* 
OUTPUT, and KEYBOARD. The file INPUT defaults to the CONSOLE device 
and is always defined to be of <type> INTERACTIVE. The statement 
READ< INPUT* CH) where CH is a character variable* will echo the 
character typed from the CONSOLE back to the CONSOLE device. WRITE 
statements to the file OUTPUT will* by default/ cause the output to 
appear on the CONSOLE device. The file KEYBOARD is the non-echoing 
equivalent to INPUT. For example* the two statements 

READ ( KEYBOARD, CH); 

WRITE< OUTPUT* CH) ; 

are equivalent to the single statement READ( INPUT* CH). 
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For more documentation regarding the use of files see sections 
2.2.6 "FILES", 2.2.4 "EOF", 2.2.5 "EOLN"* 2. 2. 17 'WRITE AND WRITELN"* 
and 2.2.12 "RESET". See section 2.1.2 "INFUT/GUTPUT INTRINSICS" for 
more details on the U. C. S. D. intrinsics. 



2. 2. 12 RESET<F> 

The standard procedure RESET* as defined on page 9 of Jensen 
and Wirth* resets the file window to the beginning of the file F. The 
next GET(F) or PUT<F) will affect record number of the file. In 
addition* the standard definition of RESET<F) states that the window 
variable F^ be loaded with the first record in the file. The U. C. S. D. 
implementation of RESET(F) operates exactly as the standard definition* 
unless the file F is declared to be of -Ctype> INTERACTIVE in which case 
the statement RESET(F) points the file window to the start of the file* 
but does not load the window variable F"\ Thus* for files of <type> 
INTERACTIVE* the U. C. S. D. equivalent of the standard definition of 
RESET(F) is the two statement sequence: 

RESET (F*)* 
GET(F>; 

U. C, S. D. Pascal defines an alternative form of the standard 
procedure RESET which is used to open a pre-existing file. In it* 
RESET has two parameters* the first being the file identifier* the 
second* either a STRING constant or variable which corresponds to the 
directory filename of the file being opened. See section 2, 1.2 
"INPUT/OUTPUT INTRIN3XCS"for more infromation on this use of RESET. 

2. 2 13 REWRITE (F) 

The standard procedure REWRITE is used to open and create a new 
file. REWRITE has two parameters* the first, being the file 
identifier* the second corresponds to the directory filename of the 
file being opened* and must be either a STRING constant or variable. 
For example* the statement REWRITES ''SOME INFO. TEXT ' > causes the file F 
to be, opened for output* and, if the file is locked onto the disk* the 
filename of the file in the directory will be "SOME INFO TEXT". REWRITE 
performs exactly as the U. C. S. D QPENNEW intrinsic and will eventually 
replace OPENNEW . See section 2. 1. I "INPUT/OUTPUT INTRINSICS" for 
further documentation regarding the use of REWRITE to open a file. 

2.2. 14 SEGMENT PROCEDURES 

The concept of the SEGMENT PROCEDURE is a U. C. S. D. extension to 
Pascal* the primary purpose of which is to allow a programmer the 
ability to explicitly partition a large program into segments* of which 
only a few need be resident in memory at any one time. The U. C. S. D. 
Pascal system is necessarily partitioned in this manner because it is 
too large to fit into the memory of mc-st =^11 interactive computers 
at one time. 
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The following is an example of the use of SEGMENT PROCEDURES: 

PROGRAM SEGMENTDEMO; 

(# GLOBAL DECLARATIONS GO HERE *) 

PROCEDURE PRINTCT: STRING)* FORWARD* 

SEGMENT PROCEDURE ONE; 
BEGIN 

PRINTC 'SEGMENT NUMBER ONE ' ) ; 
END; 

SEGMENT PROCEDURE TWO; 

SEQUENT PROCEDURE THREE; 
BEGIN 
ONE* 

PR INT ( 'SEGMENT NUMBER THREE'); 
END; 
3EGIN <# SEGMENT NUMBER TWO *) 
THREE; 

PR INT ( ' SEGMENT NUMBER TWO ' ) ; 
END; 

PROCEDURE PRINTS- 
BEGIN 

WR I TELN< OUTPUT, T); 
END; 

BEGIN 

TWO? 

WR ITELN < ' X ' 'M DONE ' ) ; 
END. 

The above program will give the following output: 

SEGMENT NUMBER ONE 
SEGMENT NUMBER THREE 
SEGMENT NUNBER TWO 
I 'M DOME 

For further documentation on SEGMENT PROCEDURES* their use and 
the syntax governing their declaration see Section 3.3 "SEGMENT PROCEDURES" 

2. 2. 15 SETS 

U. C. S. D, Pascal supports all of the constructs defined for sets 
on pages 50-51 of JensBn and Wirth. Sets (of enumeration values) are 
limited to positive integers only. Space is assigned., rounding up to 
word boundaries* in a bitwise fashion* starting at zero* up to 4079i 
inclusive. Therefor a set can be at most 255 words in sizei and have 
at most 40B0 elements. 
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Comparisons and operations on sets are allowed only between 
sets which are either of the same base type or subranges of the same 
underlying type, For example* in the sample program below, the base 
type of the set S is the subrange type 0. . 49, while the base type of 
the set R is the subrange type 1. . 100. The underlying type of both 
sets is the type INTEGER/ which by the above definition of 
compatah i li ty, implies that the comparisons snd operations on the sets 
S and R in the following program are legal: 

PROGRAM SETCCMPARE; 
VAR 3: SET OF 0. . 49; 
R: SET OF 1. . 100; 

BEGIN 

S: « CO. 5* 10, 15, 20, 25, 30, 35, 40/ 453; 
R: = CIO, 20, 30, 40, 50, 60, 70, 80, 903; 
IF S = R THEN 

WRITELNC '. . . oops ... ') 
ELSE 

WRITELN( 'sets work'); 
S := S + R; 
END. 

In the following example* the construct I - -J is not legal since the 
two sets are of two distinct underlying types. 

PROGRAM ILLEGALSETS; 
TYPE STUFF=< ZERO. ONE, TWO); 
VAR I: SET OF STUFF; 
O: SET OF O. . 2; 

DEGIN 

I: = C ZERO 3; 

J: = C 1,2.3; 

IF I - J THEN . . . «« error here 
END. 



2. 2. 16 STRINGS 

U. C. S. IX Pascal has an additional predec laT'-d type STRING, 
Variables of type STRING are essentially PACKED ARRAYs OF CHAR that 
have a dynamic LENGTH attribute, the value of which is returned by the 
STRING intrinsic LENGTH. The default maximum LENGTH of a STRING 
variable is SO characters but can be overridden in the declaration of a 
STRING variable hy appending the desired LENGTH of the STRING variable 
within C 3 after the reserved type identifier STRING. Examples of 
declarations of STRING variables are: 
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TITLE: STRING; (* defaults to a maximum length of 80 characters *) 

NAME: STRINGC203; <# allows the STRING to be a maximum of 20 

characters^') 

Note that a STRING variable has an absolute maximum length of 
255 characters. Assignments to string variables can be performed using 
the assignment statement the U. C. S. D. STRING intrinsics* or by means 
of a READ statement: 

TITLE:-' THIS IS A TITLE '; 

or 
READLN( TITLE); 

or 

NAME: = COPY (TITLE, 1/ 20); 

The individual characters within a STRING are indexed from 1 to 
the LENGTH of the STRING* for example: 

TITLEC13:=s 'A'; 

TITLEC LENGTH(TITLE) 3:= 'Z'; 

A variable of type STRISMG may not be indexed beyond its current 
dynamic LENGTH. The following sequence will result in an invalid index 
run time error: 

TITLE :« '1234'; 
TITL£C53:= '5'i 

A variable of type STRING may be compared to any other variable 
of type STRING or a string constant no matter what its current dynamic 
LENGTH Unlike comparisons involving variables of other types* STRING 
variables may be compared to -items of a different LENGTH. The 

resulting comparison is lexicographical. The following program is a 
demonstration of legal comparisons involving variables of type STRING: 

PROGRAM COMPARESTRINGS; 
VAR S. STRING; 

T: STRINGE403i 

BEGIN 

S:= 'SOMETHING'.' 

T: « 'SOMETHING BIGGER'; 

IF S = T THEN 

WRITELN< 'Strings do not work very well') 
ELSE 

IF S > T THEN 

WRITELN(S> ' is greater than '.T) 
Fi PE 
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IF S < T THEN 

NRITELN<S, ' is less than M); 
IF S = 'SOMETHING' THEN 

WR I TELN < S, ' e q ua Is ' > S ) ; 
IF 8 > 'SOMETHING' THEN 

WRITELN<S, ' is greater than SAMETHING')* 
IF S = 'SOMETHING ' THEN 

WR I TELN ( 'BLANKS DON"T COUNT') 
ELSE 

'WRITELNC 'BLANKS APPEAR TO MAKE A DIFFERENCE'); 
S: = 'XXX'i 
T:-'AECDEF'; 
IF S > T THEN 

WRITELN<S, ' is greater than ', T) 
ELSE 

WRITELN<S» ' is less than ST>; 
END. 

The above program should produce the following output: 

SOMETHING is less than SOMETHING BIGGER 
SOMETHING equals SOMETHING 
SOMETHING is greater than SAMETH I NG 
BLANKS APPEAR TO MAKE A DIFFERENCE 
XXX is greater than ABCDEF 

One of the most common uf-c-s af STRING variables in the U. C. S. D. 
Pascal system is reading -file names fro<r the CONSOLE device: 

PROGRAM LISTER, 

VAR BUFFER: PACKED ARRAY TO. , 51 1 1 OF CHAR; 
FILENAME: STRING; 
F: FILE J 

BEGIN 

WRITEC 'Enter filename of the file to be listed - — >')* 
READLNC FILENAME); 
RESET < F, FILENAME); 
WHILE HOT EQF(F) DO 
BESIM 



END; 
END. 

When a variably of typ<3 STRImq is a parameter to the standard 
procedure READ and READLN/ all characters up to the end of line 
character (a 'carriage return) in the source file will be assigned to 
the STRING variable, Note that care must be taken when reading STRING 
var tables, for example,- the single statement READLN(SlvS2) is 
equivalent to the two statement sequence READ (SI); READLN(S2). In both 
cases the STRING variable S2 will be a^hiQned the empty string. 
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For further information concerning the predeclared type STRING 

see Section 2. 1. i "STRING INTRINSICS". 

2.217 WRITE AND WRITELN 

The standard procedures WRITE* and WRITELN are compatible with 
Standard Pascal* except with respect to a WRITE or a WRITELN of a 
variable of type BOOLEAN. U. C. S. D. Pascal does not support the output 
of the words TRUE or FALSE when writing out the value of a BOOLEAN 
variable. 

For a description of WRITE statements of variables of type 
STRING see Section 2. 1. 1 "STRING INTRINSICS". 

U, C. S. 0. 's WRITE and WRITELN do support the writing of entire 
PACKED ARRAYS OF CHAR in a single WRITE statement: 

VAR BUFFER: PACKED ARRAvro. . 101 OF CHAR; 
BEGIN 

BUFFER: » 'HELLO THERE'; <* contains exactly 11 characters *> 

WRITELN<OUTPUT, BUFFER); 

END. 

The above construct will work only if the ARRAY is a PACKED 
ARRAY OF CHAR. See section 2.2.8 PACKED VARIABLES for further 
information. 

The following program demonstrates the effects of a field width 
specification within a WRITE statement for a variable of type STRING: 

PROGRAM WRITE3TRINGS; 
VAR 3: STRING; 

BEGIN 

S:~'THE BIG BROWN FOX JUMPED... '; 

WR I TELN < S ) ; 

WRITELN(S:30); 

WRITELN<S: 10) i 
END. 

The above program will produce the following output: 

THE BIG BROWN FOX JUMPED. . . 

THE BIG BROWN FOX JUMPED. . . 
THE BIG BR 

Note that when a string variable is written without specifying 
a field width* the actual number of characters written is equal to the 
dynamic length of the string. If the field width specified is longer 
than the dynamic length of the string, leading blanks are inserted and 
written. If the field width is smaller than the dynamic length of the 
string/ the excess characters will be truncated on the right. 
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2.2.18 IMPLEMENTATION SIZE LIMITS 

The following is a list of maximum size limitations imposed 
upon the user by the current implementation of U. G.S. D. Pascal: 

1. Maximum number of bytes of object code in a PROCEDURE or 
FUNCTION is 1200. Local variables in a PROCEDURE or FUNCTION 

can occupy a maximum of 16323 words of memory. 

2. Maximum number of characters in a STRING variable is 255. 

3. Maximum number of elements in a SET is 255 * 16-4080. 

4. Maximum number of SEGMENT PROCEDURES and SEGMENT FUNCTIONS 
is 16. < 9 are reserved for the Pascal system* 7 are 
available for use by the user program ) 

5. Maximum number of PROCEDURES or. FUNCTIONS within a segment 
is 127. 

2. 2. 19 EXTENDED COMPARISONS. 

U. C. S. D. Pascal allows ~ and O comparisons of any array or 
record structure. 

2. 2. 20 LONG INTEGERS. 

UCBD Pascal allows integers of up bo 35 digits. See section 
3. 3 3 for details regard ing long integers. 

2. 2. 21 UNITS 

UCSD Pascal now supports the modularity concept of UNITs. See 
section 3.3.2 for details regarding UNIT?. 

2.2.22 SUMMARY OF U. C. S. D. INTRINSICS 

INTRINSIC SECTION # DESCRIPTION 

BLOCKREAD 3. 1.2 Function which reads a variable number of blocks 

from an untyped file. 

JSLOCKWRITE 2.1.2 Function which writes a variable number of blocks 

from an untuned file. 
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CLOSE 
C ONC AT 

DELETE 

DRAWL I NE 
DRAWBLDCK 
EXIT 
GOTOXY 



INSERT 
TOREBULT 
LENGTH 
MARK 

HOVEL EFT 

M.nvrniQHT 

REWRITE 
RE c jET 



2. 1, 2 

2. 1. 1 

2. i, i 

2. 1.4 
2. 1.4 
2, 1. 7 
2. 1, 6 



F I LLC HAS? 


2. 1 


5 


MALT 


2. 1, 


6 


IDSEARCH 


_ 





P'-'R OF TEN 



c„. 1 . 1 

2. 1. 2 

2, 1. 1 

2. 1.3 

2. 1.5 
2. 1, 5 
2 . 1 . 2 
2. I. 2 
2. 1. 1 

2. X. £ 



Procedure to close files. 

STRING intrinsic used to concatenate strings together. 

STRING intrinsic used fco delete characters from 
STRING variables. 

Graphics intrinsic for use on the Terak 8510a. 

Graphics intrinsic for use on the Terak 8510a. 

Intrinsic used to exit PROCEDURES cleanly. 

Procedure used for cursor addressing whose two 
parameters X and Y zve the column and line numbers 
on the screen where the cursor is to be placed. 



Fast procedure 



.nitializing PACKED ARRAYS OF CHAR. 



Halts a user program which may result in a call to 

the interactive Debugger. 

Routine used by the Pascal compiler* and the PDP-11 
sssemb 1 er . 

STRING intrinsic used to insert characters in STRING 

var iab ies . 

Function returning the result of the previous I/O 
operation. (See Table 2 for a list of values) 

STRING intrinsic which returns the dynamic length 

— Jt - r"Tf! T Mi*" 1 ■ •- ->-■■ ~ -i J-. 1 n 
\j T ',3 Cj l. » V .1 i->\j v 3 : i d t' i B . 

Used to mark the current top of the heap in dynamic 

memo r y alloc a t i. on. 

Low level intrinsic for moving mass amounts of bytes. 

Law level intrinsic for moving mass amounts of bytes. 

Procedure for opening a new file. 

Procedure for opening an existing file. 

STRING intrinsic returning the position of a 

pattern in a STRING variable. 

Function which returns as a REAL result the number 
10 raised to the power of the integer parameter 

supplied. 
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RELEASE 


2. 


•1. 


3 


SEEK 


2. 


1. 


2 


STZEOF 


2. 


i. 


6 


STR 


2. 


i. 


I 


TIME 


2. 


1. 


6 



Intrinsic used to release memory occupied by 
variables dynamically allocated in the heap. 

Used for random accessing of records wi thing a file. 

Function returning the number of bytes allocated 

• t o a va r i a b 1 e - 

Procedure to convert long integer into string. 

Function returning the time since last bootstrap 
of system, (returns zero if microcomputer has 
no real time clock) 

TREESEARCH — ~ Routine used solely by the Pascal compiler. 

UNITBUSY 2.1.2 Low level intrinsic for determining the status of 

a peripheral device. 

UNXTCLEAR 2. i. 2 Low level intrinsic to cancel I/O from a peripheral 

device. 

UN I TREAD 2.1.2 Low level intrinsic for reading from a peripheral 

device. 

UNITWA1T 2. 1.2 Low level intrinsic for waiting until a peripheral 

device has completed an I/O operation. 

UNITWRITE 2. i.2 Low level intrinsic used for writing to a peripheral 

device. 
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* DRAWLINE AM IMPLEMENTOR 'S GUIDE * * Section 3. 1 * 

Version I. 5 September 1978 

The DRAWL IIME intrinsic uses an incremental technique to plot 
line segments on a point-addressah le matrix. The algorithm guarantees a 
best (least squares) approximation to the desired line. In general this 
approximation is not unique. PR AWL. I NE mat- pick different 

representations for- a line depending on the starting point. (This could 
be corrected by always starting at the same end of the line. ) No range 
checking is performed on parameters passed to this intrinsic. 

The algorithm is essentially the one described in Newman and 
Sprool: Principles of Interactive Computer Graphics as the Digital 
Differential Analyzer. It has been modified to perform only integer 

arithmetic Pssra! source code is included below. The procedure first 

determined us h e t h e v t h e I i n e h) i 1 1 h e & o r e h o r i ?. & n t a 1 o "* v s> r t i c a X . In the 
d iscur- 'i i on bele?u. u?e assume the hcrizontai cose- vertical is similar. 

There ajill he DEL. TAX points platted Miith horizontal increment 
of i each, The vertical increment will be ABS (BELT AY / DELTAX) <= 1. 
The V coordinate arithmetic is scaled by DELTAX to eliminate fractions. 
An additional savings in execution time has been gained b y maintaining 

the ad J res e qt t?*.-~ previous, point.' and doing only addition and 
subtraction to reach the next point to be plotted. 

The RADAR function is complicated as two intersecting lines may 
hav^r no platted points in common. The detection condition is either (1) 
the computed point is TRUE* or < £? ) both the next horizontal and the 
next vertical points are TRUE. Condition <2) could be weakened; when 
the I i~>->& is more h or i ?. ontat * only the next vertical point ne&6 he 
checked. 

Refer to Section 2. 1. 4 for a description of the parameter calling sequence. 

implementation follou/s-: 
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PROCEDURE DRAWLINE (VAR RANGE: INTEGER* VAR SCREEN: SCREENTYPE; 
ROWWIDTH, XSTART, YSTART, DELTAX. DELTAY, INK: INTEGER ); 

VAR X, Y, XINC Y.INC, COUNT: INTEGER; 



PROCEDURE DRAWDOT; 

PROCEDURE RADAR, 
VAR GOT IT: BOOLEAN; 
BEGIN 

GGTIT -: « FALSE) 
COUNT : = COUNT + 1; 

IF SCREEN CY, XI THEN GOTIT := TRUE (LANDED ON THE POINT*) 
ELSE <*WE MIGHT GO THROUGH A LINE*) 
IF SCREEN CY+1, XI THEN 

GOTIT := SCREEN CY» X+U; 
IF GOTIT THEN 
BEGIN 

RANGE : = COUNT; 
EX IT (DRAWLINE) 
END j 
END <*RADAR*>; 

BEGIN <*DRAWPOT*> 
CASE INK OF 

<*NONE*): EXIT (DRAWLINE); <*TH£Y HAD NO BUSINESS HERE*) 

1 <*WHITE*>: SCREEN CY, X 3 :* TRUE; 

2 <*BLACK*): SCREEN CY, X3 :« FALSE; 

3 <*REVERSE*>: SCREEN CY, X 3 :« NOT SCREEN CY, X3; 

4 <*RADAR*>: PADAR 
END (*CASE*) 

END <*DRAWBOT*); 

PROCEDURE DOFORX; (ftMORE HORIZONTAL*) 

VAR ERROR* I: INTEGER? 

BEGIN 

IF DELTAX « THEN EXIT (DRAWLINE); <*THEY'RE GOING NOWHERE*) 
ERROR := DELTAX DIV 2; 
I : =» DELTAX; 
REPEAT 

ERROR : = ERROR + DELTAY; 
IF ERROR >« DELTAX 

THEN BEGIN ERROR — ERROR - DELTAX, Y : = Y *• YINC END; 
X : = X + XINC, 
DRAWDOT; 
I : = I - 1 ; 
UNTIL I « 0; 
END <* DOFORX*) i 



Pag© 160 



PROCEDURE DOFORYi < SNORE VERTICAL*) 

VAR ERROR, I: INTEGER? 

BEGIN 

ERROR :~ DELTAY DIV 2; 

I : = DELTAY i 

REPEAT 

ERROR :~ ERROR + DEL TAX; 
IF ERROR :>« DELTAY 

THEN BEGTM ERROR : =* ERROR ~ DELTAY: X : = X + XINC END; 
Y : ~ Y + YINC, 
DRAWDOT; 
I := I - li 
UNTIL I = 0; 
END (*DOFORY#>; 

BEG I N ( *DR AWL I NE-* ) 
X : - X3TART; 
IF DELTAX C 

THEN BEGIN XINC :« -li DELTAX :~ -DELTAX END 

ELSE XINC : = i; 
Y : = YSTART; 
IF DELTAY < 

THEM BEGIN YINC :« -~i, DELTAY . ■= -DhLTAY END 

ELSE YINC : = 1 ; 
COUNT : =» Oi 

IF DELTAX >~ DELTAY THEN DOFGRX ELS£ DOFORY; 

IF INK - 4 <*RADAR*> THEN RANGE := COUNT, <*HIT THE LIMIT GIVEN*) 
END <*DRAWLINE*>* 
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ft**************** **************** 
* FILE FORMATS * * Section 3. 2 * 
**************** *************** 



Version I. 5 September 1978 

Text files are of the format: 

•C1024 bytes> header page> information for editors. This space 
is reserved for use by the text editors, and is respected by all 
portions of the system. When a userprogram opens a TEXT file* and 
REWRITES or RESETs it with a title ending in '.TEXT', the I/O 
subsystem will create and skip over the initial page. This is done to 
facilitate uses editing their input and/or output data. The file- 
handler will transfer the header page only on a disk-disk transfer, and 
will omit it on a transfer to a serial device. (i.e. transfers to 
PRINTER:, and CONSOLE: will omit the header page) 



-C1024 byte pages> where a page is defined: 

<CDLE3Cindent3Ctext3CCR3CDLE3Cindent3Ctext3CCR3 



Cnulls3> 



Data Link Escapes are followed by an indent-code, which is a 
byte containing the value 32+<# to indent). The nulls at the end of 
the page follow a CCR1 in all cases* they are a pad to the end of a 
page. The reason for the nulls is that the compiler wants integral 
numbers of lines on a page. The Data Link Escape and corresponding 
indentation code are optional. In a given text file some lines will 
have the codes, and some won't. 



Foto files are declared in PASCAL as follows: 



TYPE SCREEN = PACKED ARRAYCO. . 239, O. 
VAR FOTOFILE: PACKED FILE OF SCREEN; 



3193 OF BOOLEANi 



space. 



or something similar, which takes up the same dimensional 



Data files are up to the user. 



Code files have one block of information which describes the 
code kept in the file. First is an array of 16 word pairs, the first 
ward in the pair describes the block which starts the code of the 
segment which is numbered as the position in the awa^. The second 
word is the number of bytes in that segment. For example if the third 
word in the first block of a code file is an 8, and the fourth work is 
1084, you now know that segment 1 of this code file starts on block 8 
of the file, and has 1084 bytes of code. 

Following this awa^ is an array of arrays of characters. The 
array is an array of 8 character arrays which describe the segments by 
name. These 8 characters are those which identify the segment at 
compile time. Here again, the position in this array corresponds to 
the segment number. 
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Following the array of names is an array/ again 16 words long; 

of state descriptors.. The values in this array indicate what kind of 
segment is at the described location The values for this array* at 
present, are: LINKED, HOSTSEG. SEGPROC UNTTSEG, SEPRT5EQ, 

The remainder of the block* 144 words* is reserved for future 
use by later versions of the system. The format of the first block 
will most probably change completely for version II. O. 
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* SEGMENT PROCEDURE NOTES * * Section 3. 3 1 * 

Version I. 5 September 1978 
Declarations of SEGMENT procedures and functions are identical 
to standard Pascal procedures and functions except they sre preceded by 

the reserved word 'SEGMENT'* for example: 

SEGMENT PROCEDURE INITIALIZE) 
BEGIN 

C# PASCAL code •&} 
END; 



Program behavior differs* however* as code and data for a 
SEGMENT procedure (function) are in memory only while there is an 
active invocation of that procedure, 

Advantages &nd benefits. 

The user may now put large pieces of one-time code* eg. 
initialization code, into a SEGMENT procedure. After performing the 
initialization, for example* the now-useless code is taken out of 
memory thus increasing the available memory space. 

Furthermore the user may now compile his/her program in chunks? 
specifically in SEGMENTS. The LINKER program (described in Section 

1.8) can be used to link together the separate segments to produce one 
large code file. 

Requirements and limitations: 

The disk which holds the codefile for the program must be on- 
line iami in the same drive as uihen the program tuas started) whenever 
one of SEOMENT procedures it to fce called. Otherwise the system will 
attempt to retrieve and execute whatever information now occupies that 

particular location on the disk,* usually with very displeasing and 
certainly unexpected results. 

A maximum of six (6*- SEGMENT z^oc educes &v& ordinarily 
available to the user. 

SEGMENT procedures must be the first procedure declarations 
containing code-generating statements. 

For further details ant exsmpilas see Section 3. 5> INTRODUCTION 
TO THE PASCAL PSEUDO MACHINE. 
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* &##■« '»«•*■«■**** #■'** «•***■»«•*** S-»*-K-***#* **&**•-»•£* -£'**'3Ht'*RHt-#- 

* 1.1MKAGF TO EXTERNA!.. LY COMPILED ■* * Section 3.3.2 * 

* AND ASSEMBLED ROUTINES * * * 
*#•»**■»•**■»****»•*#*** »*-^##* «•■%***##*# *#*•*•»*-*•»•#-*•**•»•*•*•*•* 

Version I. 5 September 1978 

EXTERNAL COMPILATION UNITS 

The UCSD Pascal 1.5 system supports a facility for integrating 
externally compiled and assembled routines and data structures. Use of 
separately compiled structures allows the user to create files of 

frequently used routines. After a structure is compiled/ the user adds 
it to a library i ■J3ir*g the library maintainer. Files that reference 
that structure need not compile it ^ir^.ctl-q into their code file> 
rather, the linker copies the existing code into the host code file. 
Separate compilation or assembly is supported in these areas*. between 
portions of programs written in Pascal; between assembly language 
routines and Pascal hosts; and finally, between assembly language 
routines. Each of these avsan is discussed in turn by the following 
sections. 



3. 3. 2 i PASCAL, TO PASCAL LINKAGES — ■ UNITS 

A UNIT is a group of interdependent procedures* functions* and 

associated data structures which perform a specialized task. Whenever 
this task as needed within a program* the program indicates that it 
USES the UNIT. A UNIT consists of two parts, the INTERFACE part, which 
declares constants- types, variables* procedures and functions that are 
public avA can he used by the host program? an6 the IMPLEMENTATION 
part, which declares constants, types, variables.* procedures and 
functions that are private. These ay^s not available to the host program 
and are used by the UNIT. The INTERFACE part declares how the program 
will communicate with the UNIT while the IMPLEMENTATION part defines 
how the UNIT will accomplish its task. 

TURTLEGRAPHICS ( example 8 ) is a UNIT which enables the user 
to draw pictures using a graphics turtle. The INTERFACE consists of 
procedures like MOVE* TURN, and PENCQLOR, which allow the user to move 
the turtle and change colors. TURTLEGRAPHICS also employs DRAWLINE* an 
externally assembled procedure, to draw the lines and the turtle. 

A program that uses TURTLEGRAPHICS has no need for DRAWLINE, 
and, consequently, DRAGLINE is private to that UNIT. 
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PROGRAM DRAWPOLYGON; 
USES TURTLEGRAPHTCS; 
VAR I: INTEGER; 

SIZE, NUMSIDES: INTEGER; 

BEGIN 

INXTTURTL.E; <# Initialize the UNIT'S variables #> 

WRITE* 'What size polygon'?'); 
READUWSIZE); 
WR I TE ( ''How ma n y s i d es? ' > > 
READLN(NUMSIOES)f 
FOR I:=l TO NUMSIDES DO 
BEGIN 

MOVE (SIZE); 

TURN (360 DIV NUMSIDES) ; 
EMD; 
END. 

EXAMPLE A 

A program must indicate the UNIT* that it USES be-Fore the LABEL 
declaration part of the program At the occurrence of a USES 
statement* the compiler references the INTERFACE part of the UNIT as 
though it were part of the host text 'itself. Therefore all public 
constant?,' types.- variables! functions) and procedures are global. Name 
conflicts may arise if the user defines an identifier that has already 
been 6fifir\^iA by the UNIT. Procedures and functions may not USE UNITs 
locally. 

UNIT rURTLFQRAPHICS; 

T *\tT"5T "O r~ A r" CT 
TV"F-" 

rGUjLGR" ^ HONEi WHITE, BLACK/ REVERSE >> 

P R OC E 1") : , if? E I N I T T '.. f R TL E ; 

PROCEDURE TURN( RELANGLE: Integer >, 
PROCEDURE M0VE( R ELD I STANCE: Integer ); 
PROCEDURE M0VET0< X, V: Integer )> 
PROCEDURE TURNTCM. ANGLE; Integer ); 
PROCEDURE PENCOLORC PCOLOR; TGCOLPR ); 

IMPLEMENTATION 

CONS": 



TERXSIZE 


= 319: 




TERYSI7E 


^_ *7 "*JQ • 




RADCOMST 




:-7S 
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TYPE 

SCREEN = Pa cfce d 

Array tO. TERXSIZE* 0. . TERYSIZE3 of Boolean; 

VAR 

(* Private variables *) 
TGXPOS: Integer; 
TGYPQS: Integer; 
TGHEADING; Integer; 
TGPEN: TGCOLOR; 

1) J: Integer* 

S: SCREEN.; 

\ * Externally assembled procedure #) 

PROCEDURE DRAWLINE< Var RADAR, Integer; Var S: SCREEN) 

ROW, XO, YO* DX, DY* PEN: Integer >; 

EXTERNAL; <* External declaration •*) 



PROCEDURE INXTTURTLE; 
BEGIN 

FxilcharC SCREEN. Si zeof (SCREEN) , ); 

UnitusriteC 3/ SCREEN, 63 ) 5 

HEADING : « 0; 

TGXPOS : « O? 

TGYPOS : = G; 
END* 

PROCEDURE MOVE* <* Public procedure* parameters declared above *) 
BEGIN 

MOVETCK Round <TURTLEX + DIST*Cos (TURTLEANGLE/RADCONST) , 

Round (TURTLEY + DIST*S in (TURTLEANGLE/RADCONST) ); 

END; 

PROCEDURE MOVETO* 

VAR R: Integer; 
BEGIN 

DRAWLINE( R* S* 20, 160+TURTLEX, 120-TURTLEY. 

X-TURTLEX* TURTLEY-Y, ORD(TURTLEPEN) ), 
END j 

PROCEDURE TURN; <# Public procedure* parameters declared above #> 
BEGIN 

HEADING : = < HEAD I NG+REL ANGLE ) mod 360* 

END, 
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PROCEDURE TURNTO; 
BEGIN 

HEADING : = ANGLE; 
END? 

PROCEDURE PENCOLOR; 
BEGIN 

TQPBH : ~- P COLOR? 
END; 

EHD. <* End of unit ■* > 

EXAMPLE B 

Example B is a skeleton for a TURTLEQRAPHICS UNIT, Note that 
the procedures MOVE, TURN, and INITTURTLE, and the TYPE TGCOLOR, are 
declared in the INTERFACE part and are available for use by the host 
program. Since the procedure URAWLINE is not part of the INTERFACE* it 
is private, anti may not be used by the host. The syntax for a UNIT 
definition is shown below The declarations of routine headings in the 
INTERFACE part ^re similar to forward declarations* therefore* when the 
corresponding bodies ar» defined in the IMPLEMENTATION part* formal 
parameter specifications are not repeated 

A UNIT may aiso USE another UNIT, in which case the -USES 
declaration mast appear at the beginning of the INTERFACE part. In 
example C, PICTURE&RAPHICS indicates in" the INTERFACE part that it 
USES TURTLEQRAPHICS. Note that the program USEGRAPHICS, which USES 
PICTUREGRAPHXC5, indicates that it USES TURTLEQRAPHICS before using 
PICTUREGRAPHICS It is i^or^M th.vt th- INTERFACE part of 
TURTLEQRAPHICS be defined before P1CTUREGRAPHICS mattes references to 
it* therefore this ordering is required, 

NOTE; Variables of type FILE must be declared in the INTERFACE 
part of a UNIT A FILE declared in the IMPLEMENTATION part will cause 
a syntax error upon compilation. 

UNIT FICTUREGRAPHICS; 

INTERFACE 

USES TURTLEQRAPHICS; <* TURTLEQRAPHICS is defined in the ■*> 

TYPE (* *-s«.jsfcem library see section III below *> 

PVECTOR='-VECTOR, 
VECTOR-RECORD 

DELHBADING: INTEGER. 
DEL DISTANCE: INTEGER; 
PENDOWN BOOLEAN; 
NEXTVEC: P VECTOR 
END; <# record *) 
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VAR 

START: P VECTOR* 

HEAP: -INTEGER; 



<* Head of list of lines *) 



PROCEDURE MAKESUBPICTUREi 

PROCEDURE DRAWSUBP ICTUREi 

IMPLEMENTATION 

PROCEDURE MAKESUBPICTUREi 
BEGIN 

(* Calculates next subpicture and stores on heap *> 
END ; 



PROCEDURE DRAWSUBPICTUREi 
BEGIN 

LPVEC -START; (*■ Start at beginning of list *) 
WHILE LPVECONIL DO (* and draui each that's there *) 
WITH LPVEC-- DO 
BEGIN" 

TUR N ( DELHE AD I NG ) ; 

MOVE ( D£LD I STANCE ) i 

IF PENDOWN THEN TGPEN: -WHITE 

ELSE TGPEN: =NONEi 
LPVEC: =NEXTVEC; 
END; 
<* drauisuhpicture *) 



END* 

END. 



PROGRAM USEGRAPHICS, 

USES TURTLEGRAPHICS, PICTUREGRAPHICS; 

BEGIN 

INITTURTLE; 
REPEAT 

MARK (HEAP) ; 
MAKESUBPICTUREi 
DRAWSUBPICTURE; 
RELEASE (HEAP) j 
UNTIL START=NIL; 
END. 



(* picturegraphics uses *) 
(* turtlegraphxcs *) 



EXAMPLE C 
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< Comn i 1 at ion unit > 



< Program heading > ; < Unit definition > ; 

< Uses part > < Block > ' 

< Unit definition > > < Unit definition > . 



< Unit definition > 



< unit heading >> 

< Inter fare part > 

< Implementation part > 
End 



< Unit headim 



Ur\ i t < Un i t identifier > 5 
Separate unit < Unit identifier 



< Unit identifier I 

< Interface part > 



< Implementation part! 



< Uses part > 



< Identifier > 

Interface 

•C Use '5 pert > 

C Constant definition part > 

< Type definition part > 

< V&viabl& declaration part > 

< Procedure heading > * < Function heading > 

Imp lementati on 

< Label declaration part- > 

< Constant definition part > 

< Type d e f i n i t i on p a r t > 

•C Variable declaration part > 

< FvQc.edurz and Function declaration part > 

Us e s C Unit identifier > 

„^,.„^L_Ulli.i,^.^E!2tJJ:.Aiir2_. ' » "£ Empty > 



DIAGRAM D 

The user may define a UNIT in-line, after the heading of the 
host program. In this case the user compiles both the UNIT; and the 
host program together. Any subsequent changes in the UNIT or host 
pr&gram require the user to recompile both The user may also define 
and compile a UNIT ( or a group of UNlTs ) separately* and use the 
library manager to store it ( or them ) in a library. After compiling 
a host program that uses such a UNIT* the user must link that UNIT into 
the code file by executing the LINKER. Trying to R(un an unlinked code 
file will cause the LINKER to run automatically! trying to X(ecute an 
unlinked file causes the system to remind you to link the file . 
Changes in a host program require only that the user recompile the 
program and link in the UNIT. Changes in the IMPLEMENTATION part of a 
UNIT only require the user to compile the UNIT* ar\6 then to relink all 
compilation units that use that UNIT. Changes in the INTERFACE part of 
a UNIT require that the user recompile both the UNIT and all 
compilation units that use that UNIT. In this case all these 
compilation units must again be linked. For more information see 
section 1.8 LINKER or section 4.2 LIBRARIAN. 
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The compiler generates LINKER information in the contiguous 
blocks that follow a program that uses UNITs. This information 
contains locations of references to externally defined identifiers. 
The LINKER document explains the format of this information, 



3. 3. 3, 2 PASCAL TO ASSEMBLY LANGUAGE LINKAGES — EXTERNAL PROCEDURES 

External procedures are primarily separately assembled assembly 
language procedures, stored in a LIBRARY on disk. Host programs that 
require external procedures must have them linked into the compiled 
code file. Typically the user writes external procedures in assembly 
language* to handle low-level operations that Pascal is not designed to 
provide. External assembly language procedures av& also used for their 
comparative speed in 'real time' applications. 

s that a procedure is external in much 

declared FORWARD. A standard heading is 
ord EXTERNAL. Calls to the external 
syntax; and the compiler checks that 

type bt\4 number of parameters with the 
he user's responsibility to assure that 
e respects the Pascal external 
s only that the number of words of 
ascal and assembly language declarations 
on 1.8 Linker and 1.9 Assemh ler (s ) . 
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the 


same 


way 
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The conventions of the surrounding sytem concerning register 

use and railing sequences must be restricted by writers of assembly 
language routines. These conventions for the PDP-11 and ZS0/808G 
implementations are given here. 

First, for the PDP-11* registers RO and Rl are available for 

use; any others affected by a routine must be saved on entry and 
restored on exit The following call and return sequence is 
recommended for procedures. It has the advantage that calls can be 
made directly from assembly language as well as from Pascal. 

. PROC ENTRY, 2 



PAR AMI 

PARAM2 

RETADDR 

OLDR5 

LOCAL! 

L0CAL2 



. ES'U 


6 


. EGU 


4 


. EQU 


2 


. EQU 




E&J 


-2 


. EQU 


~4 


MOV 


R5, -(SP) 


MOV 


SP, R5 


CLR 


-(SP) 


CLR 


-<SP) 



/Offset for first parameter 
i Of f set for second paramter 
^Offset for return address 
/Offset for original value of R5 

/Offset for first local 
-•Offset for second local 

;Save contents of R5 

; Use RS to get at locals and parameters 

/Reserve and Initialize 

; Two local variables 



/ Inside routine 

MOV PARAM(R5)/LOCALl(R5) 



/Sample statement 
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MOV 


R5* SP 


MOV 


(SP) + *R5 


MOV 


(SP)+*RO 


ADD 


#NP ARAMS* SP 


JMP 


@RO 



EXIT: MOV R5* SP i Cut back to entry SP 

Restore? previous R5 
Get return address 
Discard parameters 
Return to caller 

In Z80 assembly language routines* all registers are available 
•For use* and the recommended interface sequence follows: (This code 
would work for both 8080's and ZSQ's. Optimizations are possible if 
the ZSO instructions av& available, ) 



PROC ENTRY* 
PRIVATE 



RETADDR* LOCAL! * LOCALS* P ARAM 1, PAR AM2 



* Reserve static storage 

/reference objects like 

.register as on PDP-11 

POP HL 

LD ( RETADDR ) * HL 

POP HL 

LD <PARAM2),HL 

POP HL 

LD <PARAM1)*HL 



for this routine. Much easier to 
this rather than relative to 

* Get return address 
* and save it 

* Get and save PARAM2 

;Get and save PARAM1 



LD 



HL* (PARAM2) 
(LOCALl)iHL 



* Move PARAM2 

* to LOCAL 1 



EXIT; 



LD 
JP 
. END 



HL* (RETADDR) 
<HL> 



Get return address 



For assembly language functions C.FUNC's) the sequence is 
essentially the same* except that: 

1) Two words of zeros are pushed by the compiler before any 
parameters ar$ put on the stack. 

2) After the stack has been completely cleaned up at the 
routine exit time* the . FUNC must push the function result on the 

stack. 

Hbts is an example of an external assembly language prQC&duv®> 
and a program that uses it. This example takes a very primitive 
approach to interrupt handling (which might still be useful in some 
applications). There is no provision for handling interrupts from the 
device where a collected buffer is being written to disk. Support for 
continuous interupts would be more complex* involving multiple buffers 
and exclusion mechanisims to assure that buffer switching would occur 
reliably. The Project intends eventually to provide synchronization 
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capabilities at the Pascal level* so that interrupt handling can be 
accomplished uiith greater convenience and safety. 

. PROC DRCOLLECT* O ; Name of routine for use by linker. 

Public constant. 
Public variable. 



i Load address of interrupt 

i handler and set priority. 

i Load RO with size of buffer. 

/ Load Rl with address of buffer. 

; Enable interrupts on DR interface. 





. CONS 


T 


DR BUFLENG ; 




. FUBL 


IC 


DR BUFFER 


DRADDR 


. EQU 




167770 


DRVECT 


. EQU 




140 




MOV 




#HANDLRi @#.DRVECT 




MOV 




#340 , @#DRVECT+2 




MOV 




#DRBUFLEMG, RO 




MOV 




#DRBUFFER, Rl 




BIS 




#100- €#DRADDR 


! Hflp • 


TOT 




or* 

5 -> w 




BNE 




LOOP 




BIC 




#100, @#DRADDR 




R TS 




PC 


HANDLE: 


MOV 




©#DRADDR+2i (Rl)+ 




DEC 




r?p. 




RT1 







iEr.it loop when buffer full. 

/Disable interrupts. 

i Return to PASCAL host program. 



increment Rl. decrement RO. 
Return from interrupt 



PROGRAH COL LFCTDATAs 

CONST 

DRBUFLENG « 256; 

TYPE 

DA1ABUFFER « Array t 1 . . DRBUFLENG3 of integer; 



I: IntegeT 
DR BUFFER 

DATAF ILE 



DATABUFFER, 

File of DATABUFFER; 



PROCEDURE DRCOLLECTi 

Ex ternal; 

BE Q I N ( * C3 f Collect Data '* ) 
R * wt> i t e ( DATAF I LE > ' SAMP LE . DATA ' ) ; 

for I : ~i to 10 do 

K-- l -Z x* i tV 

DRCOLLECT; 
DATAFILE-: -ORBUFFER; 
Put< DATAF ILE ); 

END; 
CIc^( DATAF ILE, Lark )i 
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3. 3. 2. 3 ASSEMBLY LANGUAGE TO ASSEMBLY LANGUAGE LINKAGES 

The third way in which separata routines may share data 
structures and subroutines is by linkage from assembly language to 
assembly language. This is made possible through the use of the . DEF 
and . REF pseudo-ops provided in the UCSD assemblers. These generate 
link information that allows two separately assembled procedures to be 
L(inked together. One possible use for this will be the linking of 
separate routines and drivers in constructing new UCSD interpreters. 

The following ars very abbreviated versions of two assembly 

language routines which make separate references. They av& used 
externally by the UNIT PSGRAPHICS: 

The first routine declares three public variables and declares 
a .DEF for a label to be referenced by the second routine < Note that 
this is only a skeleton of the actual MOVETO routine ): 



. PROC MOVETO* 6 ; THE 3 REAL PARAMETERS OCCUPY 6 WORDS 

PROCEDURE MOVETO <X, Y, Z: REAL) J 

COMPUTES A NEW PSXPOS & PSYPOS FROM PSMATP AND 
AN ASSUMED 1.0 AS THE INPUT VECTOR HOMOGENOUS 
COORDINATE. . . 

<X Y I 1) dot PSMATP^ = (X' Y' Z' W> 
PSXPOS : « X 7W'i 
PSYPOS : = Y'/W'j 



THESE ARE GLOBAL 
PUBLIC PSXPOS 
PUBLIC PSYPOS 
PUBLIC PSMATP 



IN THE PASCAL HOST 



MOVETO ENTRY POINT 



MOV R5, ~<SP> 

MOV 5P,R5 

MOV @#PSMATP, RO 



R5 USED AS FRAME POINTER 
RO IS TOS MATRIX POINTER 



i PARAHtTTER DISPLACEMENTS FROM RS FRAHE POINTER 
X . EQU 14 
Y . EQU 10 
Z . EQV 4 

W . EGU -4 

» 

i COMPUTE W, HOMOGENEOUS COORD 

? AND LEAVE IT ON STACK 
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ROUND. 



END 



i COMPUTE PSXPGS 

i 

i NOW CDHPUTE PSYPOS 

i 

i GLEAM UP STACK AND RETURN 



ROUND REAL ON STACK TO INTEGER 

IF < THEN SUBTRACT 0. 5 ELSE 
ADD 0. 5, THEN TRUCATE. 



The second routine references the first routine as well as the 
separately assembled DRAWL I NE routine. MOVETO must be linked into 
LINETO before the routine can be linked in as an external procedure to 
a PASCAL UNIT or PROGRAM. 

. PROC LINETO, 6 ; PARAMETERS OCCUPY 6 WORDS 

PROCEDURE LINETCHX, Y, Z: REAL); 

DRAWS A LINE FROM THE LAST POINT CONTAINED IN 
PSXPOS & PSYPOS TO THE NEW TRANSFORMED POINT 
GIVEN BY X, Y, & Z. . . 

SAVEX • = PSXPOS; SAVEY : = PSYPOS; 

MGVETQ'X, Y Z)>, 

DRAWL 1 NEC -JUNK, PSSUFP~, 20, 160+SAVEX, 120--SAVEY, 

PSXPOS-SAVEX, SAVEY -PSYPOS* Di 

.PUBLIC PSXPOS 
. PUBLIC PSYPOS 
. PUBLIC P3BUFP 
. PRIVATE RANGE 

. REF HO VETO 
. REF DRAWL I NE 

; LINETO ENTRY POINT 





MOV 


R5, 


- ( SP > 




MOV 


SP, 


R5 


SAVEX 


. EQU 


•~ r> 




SAVEY 


. EQU 


-4 




X 


. EQU 


14 




Y 


. EQU 






Z 


. EQU 


4 





USE R5 AS STACK FRAME POINTER 



SAVEX 



PSXPOS; SAVEY : = PSYPOS; 



MOVETO (X. Y> 
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JSR PC,@#MGVETO 

DRAWLINE<. . . >J 
JSR PC, @#DRAWLINE 

ALL DONE. . . RETURN 
JMP 



END 



For examples and more information see section i. 9 ASSEM 
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* LONG INTEGERS * * SECTION 3. 3. 3 * 

Version 1,5 September 1978 

A new addition to U. C. S. D. Pascal predeclared type INTEGER is 
the optional use of a length attribute (available only on LSI 11/PDP 
11 based micros). This essentially constitutes a new type and will* 
in the remainder of this document* be referred to as LONG INTEGER. 
The LONG INTEGER is suitable for business* scientific or other 
applications in which the need for extended number length with 
complete accuracy is felt. This extension supports the four basic 
standard INTEGER arithmetic operations (addition* subtraction* 
division and multiplication) as well as routines facilitating 
conversion to strings and standard INTEGERS Strong type checking is 
enforced throughout to reduce potential errors. Input/Output, in line 
declaration of constants and inclusion in structured types are all 
fully supported bt\$ am analogous to the usage of standard INTEGERS. 

LONG INTEGERS are declared using the standard identifier 
INTEGER followed by a length attribute in square brackets. This 
length is an unsigned number/ not larger than 36* denoting the minimum 
number of decimal digits representab le by the LONG INTEGER. For 
example* a variable called 'X' capable of storing at least an eight 
decimal digit signed number would be created by: 

VAR X: INTEGER CGI; 

Constants are defined in the normal manner: 

CONST RYDBERG « 10973731; 

In the above example RYDBERG would be by default a LONG INTEGER 
and could be used anywhere a LONG INTEGER could be used. 

In general LONG INTEGERS may be used anywhere it is 
syntactically correct to use REAL* (not fully implemented until II. O; 
for now LONG INTEGERS are limited to ar itmetic operations* assignment 
statements (but not assignment to a READ* TRUNC* and STR); however 
care must be taken to ensure that sufficient words have been allocated 
by the declared length attribute for storage of the result of 
assignment or arithmetic expression statements (see note in next 
subsection for complete details) INTEGER expessions are implicitly 
converted as required upon assignment to* or arithmetic operations 
with, a LONG INTEGER. The reverse is not true, Unary plus/minus is 
correctly handled. Examples 
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VAR I INTEGER; 

L: INTEGER CN3 i 
S: REAL* 



where N is art acceptable length 



I:= Li compile time errors see TRUNC(L) below 

L: =-L* correct * with the usual exception 

L: » I; almaus ...correct 

L: ~ Si never accepted 

S: = L; will be implem ented with II, Q 

Arithmetic operations which may be used in conjunction with 
LONG INTEGERS are any or all from the set +, -, »/ DIV* unaru 
plus/minus . On assignment the length of the LONG INTEGER is adjusted 
(during execution) to the declared length attribute of the variable* 
therefore an interrupt (overflow) may result. An interrupt (overflow) 
occurs only when the intermediate result exceeds the number of words 
required to store (as a minimum) thirty-seven decimal digits* or when 
the final result is assigned to a variable with insufficient length 
attribute. (On the matter of the length attribute and what it 
defines: a length attribute of 5 thru 9 may store up to and including 
2147483647* length attributes of 10 thru 14 may store thru 
140737488355327/ 15 thru 18 . . 9223372036854775807. It is left to the 
interested reader to compute any larger length attribute storage 
capacities Thus it would be unwise to attempt to use a LONG INTEGER 
as a subrange. This range of length attributes all having the same 
upper bound is a result of the allocation of a full word as the least 
amount of additional storage* i.e. 5 thru 9 represent a two word 
INTEGER. ) All of the standard relational operators may be used with 
mixed LONG INTEGER and INTEGER. 



The function TRUNC <L), where 'L' is a LONG INTEGER, will 

convert 'L' to an INTEGER (i.e. TRUNC will accept a LONG INTEGER as 

well as a REAL as an argument). Interrupt (overflow) will result if L 

is greater than HAXXNT, 



The procedure STR<L*S) converts the INTEGER or LONG INTEGER 
'L'# into a string (complete with minus sign if needed) and places 
in the STRING 'S'. The following program segment will provide a 
suitable dollar and cent routine: 



it 



STRUTS); INSERTS. ', S, LENGTH (S) ~i ) ; NRITELN(S)i 

Where 'L' and 'S' are appropriately declared. TRUNC and STR 
are the only two routines which currently will accept LONG INTEGERS as 

parameters. An attempt to declare a LONG INTEGER in a parameter list 
will result in a compile time error, which may be circumvented by 
creating a type which is a LONG INTEGER. For example: 
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TYPE LONG « INTEGER CI S3; 

PROCEDURE B I GNUHB ER (BANK AC CT LONG)/ 

The LONG INTEGER is stored as a multi-wordi twos complement 
binary number. System and interpreter routines do the I/O conversions 
as required. Maximum storage efficiency is achieved by dynamic 
expansion and contraction of word allocation as required. During 
LONG INTEGER operations the length is placed on the stack above the 
number itself/ the declared length attribute need not be the same and 
can be less than this length. 
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Notes 
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# PSUED0-F1ACHINE ARCHITECTURE * * Section 3.4 * 

Version I. 5 September 1978 

The UCSD Pascal P-machine, designed specifically for the 
execution of Pascal programs on small machines* is an extensively 
modified descendant of the P-2 pseudo-machine from Zurich. It supports 
variable addressing* including strings, byte arrays; packed fieldsi and 
dynamic variables; logical/ integer/ real> and set top-of-stack 
arithmetic and comparisons! multi-element structure comparisons; 
several types of branches; procedure/function calls and returns* 
including overlayable procedures; miscellaneous procedures used by 
systems programs; and an I/O system. 

This Section* to be used in conjunction with Section 3. 5> 
describes the P— machine "hardware," communication with the operating 
system^ exceptional condition handling, the instruction set/ the I/O 
system/ and the bootloading process. 

NOTE: not all of the a bove will be included in the 1.5 re l ease 

and will onl u be? available sometime later. 



3. 4. 1 HARDWARE 

There exists no physical P-machine (yet!). The P-machine 
exists only as interpreters written in assembly languages of actual 
computers. However/ this can and will be ignored in the following 
description. 

The P-machine uses 16-bit words* with two 8-bit bytes per 
word. It has several registers and a user memory/ in which are kept 
stack and a heap. All registers an* pointers to word-aligned 
structures* except IPC/ which is a pointer to byte-aligned 
instructions. The registers are: 



a 



SP: Stack Pointer is a pointer to the top of the execution stack. The 
stack starts in high memory and grows toward low memory. It 
contains code segments and activation records/ and is used to pass 
parameters, return function values, and as an operand source for 
many instructions. The stack is extended by loads and procedure 
calls/ ami is cut back by stores/ procedure returns/ and arithmetic 
operations. 

HP: New Pointer is a pointer to the top of the dynamic heap. The heap 
starts in low memory and grows upwmrd toward the stack. It 
contains all dynamic variables (see Jensen and Wirth/ Chapter 10). 
It is extended by the standard procedure 'new'/ and is cut back by 
the standard procedure 'release'. 
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JTAB. Jump TARle pointer is a pointer to the procedure attribute table 
of the currently executing procedure (Bee Section 3, 5> figure 5. > 

SEQ: Segment Pointer points to the procedure dictionary of the segment 
to which the currently executing procedure belongs. (See Section 
3. 5> figure 6. ) 

MP: Most recent Procedure is a pointer to the activation record of the 
currently executing procedure. (See Section 3. 5* figure 7. ) 
Variables local to the current procedure are accessed by indexing 
off MP. 

BASE: BASE Procedure is a pointer to the activation record of the most 
recently invoked base procedure (lex level 0). Global (lex 
level 0) variables are accessed by indexing off BASE. 



3. 4. 2 OPERATING SYSTEM/P-MACHINE COMMUNICATION - SYSCOM 

It is sometimes necessary for the operating system and the P- 
machine to exchange information. Hence there exists a variable SYSCOM 
in the outer block of the operating system; and a corresponding area in 
memory known to the hardware. The fields in SYSCOM actually relevant 
to this communication are: 

IORSLT: contains the error code returned by the last activated or 
terminated I/O operations. (See I/O section below/ and operating 
system read and write procedures ) 

XEGERR; contains the error code of the last run-time error. (See 
exception handling below. ) 

SYSUNIT: contains the unit number of the device the operating system 
was booted from (usually 4 or 5). 

BUGSTATE contains the current bugstate. (See OPT instruction below. ) 

GDIRP: contains a pointer to the most recent disk directory read in/ 
unless dynamic allocation or deallocation has taken place since then 
(See MRK, RLS, and MEW instructions below, ) 

STKBASE, LASTMF. SEQ, JTAB: copies of the BASE. MP, SEO and JTAB 
registers. 

BOMBP: contains a pointer to the activation record of the operating 
system routine EXECERROR when a runtime error occurs. (See 
exception handling ) 
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BOMIPC: contains the value of IPC when a run-time error occurs. 

HLTLINE: contains the line number of the last conditional halt executed 
(See BPT instruction. ) 

BRKPTS: contains up to four line numbers of breakpointed statements. 
(See BPT instruction. ) 

CRTINFO, EOF: contains the end-of-file character (see console input 
driver). 

CRTINFO. FLUSH: contains the flush-output character (see console input, 
output drivers). 

CRTINFO. STOP: contains the stop-output character (see console output 
and input drivers). 

CRTINFO. BREAK: contains the break-execution character (see console 
input driver). 

SECr TABLE: contains the segment dictionary for the pascal system. 



3.4.3 EXCEPTION HANDLING » XEQERR 

Whenever a run-time error occurs, the P-machine stops executing the 

current instruction (ideally leaving the evaluation stack in as nice a 

condition as possible) and transfers control to the XEQERR routine. 
This routine 

1) enters the error code into SYSCOM"\ XEQERR. 

2) calculates what MP mill be after step 4* and sets SYSCOM'". BOMBP to 
that. (The size of EXECERROR's activation record must be known 

by the P-machine. ) 

3) stores the current value of IPC into SYSCOM^. BOMIPC. 

4) points IPC to a CXP 0> 2 (call operating system procedure 
EXECERROR) instruction. 

5) resumes execution of interpreter code* starting with the CXP. 



3. 4. 4 OPERAND FORMATS 

Although an element of a structure may occupy as little as one bit* 
as in a PACKED ARRAY OF boolean? variables in the P-machine are 
always aligned on word boundaries. All top-of-stack operations expect 
their operands to occupy at least one word* even if not all the 
information in a word is valid. The least significant bit of a word is 
bit 0, the most significant is bit 15. 
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BOOLEAN: One word. Bit indicates the value (false=0/ true=i)/ and 
this is the only information used by boolean comparisons. ■■"■However.* 
the boolean operators LAND/ LOR/ and LNOT operate on all 16 bits. 

INTEGER: One word/ two's complement/ capable of representing values in 
the range -32768. . 32767. 

SGALAR (user-defined): One word/ in range 0. . 32767. 

CHAR: One word* with low byte containing character. The internal 
character set is "extended" ASCII/ with 0. . 127 representing the 
standard ASCII set/ and 128. . 255 as a user-defined character set 

REAL: Two words/ with format implementation dependent The system 
is arranged so that only the interpreter needs to know the detailed 
internal format of REALs (beyond the fact that they occupy two 
words) Following are the two detailed formats for the CPUs we now 
(as of 1.4) support. 



PUP 1 1 : 



15 
word 1; ! low mantissa 



15 14 7 6 O 

word 0: Is f exponent ! high mantissa ! 



Z 80/ 8 080: 



15 3 7 

'.ti or d X: ! low mantissa ! middle msntUsa • 



15 14 B 7 

word O: '. s t high mantissa ! exponent » 

Both representations have an excess- I2S exponent., a fractional 
mantissa that is always normal i zed/ exponent base 2* an implicit 
24th mantissa bit/ and zero represented by a zero exponent. (See 
PDPii processor manual or ZSO/8080 interpreter listing for greater 
detai 1 . > 

POINTER. One or three words, depending on type of pointer. 

Pascal pointers/ internal word pointers: one word/ containing a word 

address. 
Internal byte pointers: one word* containing a byte address. 
Internal parked field pointers: three words. 

word 2: word pointer to word field is in. 

word 1: -Pield^width (in bits) 

word O: r ight__b i t__n umber of field. 

SET: 0. . 255 words in data segment > t , 256 words on stack. Sets are 
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implemented as bit vectors/ always with a lower index of zero. A 
set variable declared as set of m. . n is allocated (n+13) div 16 
words. When a set is in the data segment* all words allocated 
contain valid information. 

When a set is on the stack* it is represented by a word 
containing the length* and then that number of words* all of which 
contain valid information. All elements past the last word of a 
set are assumed not to be elements of the set. Before being stored 
back in the data segment* a set must be forced back to the size 
allocated to it* and so an ADJ instruction must be issued. 

RECORDS and ARRAYS: any number of words <up to 16384 words in one 

dimension). Arrays are stored in row-major order* and always have 
a lower index of zero. Only fields or elements are loaded onto the 
stack - never the structure itself. Packed arrays must have an 
integral number of elements in each word* as there is no packing 
across word boundaries (it is acceptable to \>ave unused bits in 
each word), The first element in each word has bit as its low- 
order bit. 

STRINGS: 1.. 128 words. Strings are a flexible version of packed 

arrau s of char. A stringCn3 occupies (n div 2)+l words. Byte O 
of a string is the current length of the string* and bytes 
1. . length (string ) contain valid characters. 

CONSTANTS: constant scalars* sets* and strings may be imbedded in 

the instruction stream* in which case they have special formats. 

All scalars (excluding reals) not in the range O. . 127: two bytes* 
low byte first. 

Strings: all string literals take length ( 1 iteral )+l bytes* and 

are byte aligned. The first byte is the length* the rest are the 
actual characters. This format applies even if the literal should 
be interpreted as a packed arrau of char (see SIP and S2P 
below). 

Reals and sets: word aligned* and in reverse word order. 



3.4.5 INSTRUCTION SET FORMAT 

Instructions on the P-machine are one or two bytes long* followed 
by zero to ■ four parameters. Most parameters specify one word of 
information* and are one of five basic types. 

UB unsigned byte: high order byte of parameter is implicitly zero. 

SB signed byte: high order byte is sign extension of bit 7. 

DB don't cav& byte: can be treated as SB or UB* as value is always in 
the range 0. . 127. 

B big: this parameter is one byte long when used to represent values in 
the range 0. . 127* and is two bytes long when representing 
values in the range 128. , 32767. If the first byte is in 
O. . 127* the high byte of the parameter is implicitly zero. 
Otherwise* bit 7 of the first byte is cleared and it is used as the 
high order byte of the parameter. The second byte is used 
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as the low order byte. 

W word: the next two bytes* low byte first* is the parameter value. 

Any exceptions to these formats are noted in the instructions where 
they occur. 



3.4.6 ENGLISH INSTRUCTION SET DESCRIPTION 

In the following section* references to an element on the stack are 
context-dependent* and can mean anywhere from one word to 256 words. 
Also* unless specifically noted to the contrary* operands are popped off 
the stack ~ they are not left around. 

Abbreviations are used widely / but use fairly simple conventions. 
Parameters are written as X or X_n* where X is UB> SB* DB* B* or W* and 
n is an integer indicating the parameter position in the instruction. 
Tos means the operand on the top of stark* tos-1 the next operand* 
etc, Mark Stack Control Word is abbreviated to MSCM. 

Many instructions refer to the activation record of a procedure* and 
this document assumes the reader has a general knowledge of procedure 
calling in stack machines* and the concept of stack frames. An 
activation record as. defined in this document specifically consists of; 

1) the local data segment of the procedure* and 

2) the MSCW. containing addressing information (static links)* and 
information on the calling procedures environment when the procedure 
was called, 

(See Section 3. 5. figure 7. ) 

The dynamic chain refers to the calling chain* traversed using the 
MSCW liS'DYN links The static chain refers to the lexical or ancestor 
chain* traversed using the MSCW MSSTAT links, 



MNEMONIC OP-CODE PARAMETERS FULL NAME AND OPERATION 



5. A VARIABLE. FETCHING, INDEXING, STORING, AND TRANSFERING 
5. A. 1 ONE WORD LOADS AND STORES 



5. .A. 1 a CONSTANT ONE WORD LOADS 

SLDC 0. . 127 Short load word constant. Pushes the 

opcode, with high byte zero* onto stack 
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LDCN 



LDCI 



159 



199 



Load constant ni 1. Pushes the 
implementation-dependent value of ni 1 



W 



Load constant word 



Pushes W. 



5. A. 1. b LOCAL ONE WORD LOADS AMD STORE 

SLDL1 

SLDL16 

LDL 202 B 



LwLwf*^s 



STL 



216 
231 



198 



3Ci& 



Short load local word. SLDLx fetches 
the* word with offset x in MP activation 
record an<l pushes it. 



Load local word. Fetches the word with 
offset B in MP activation record and pushes it. 

Load local address. Fetches ad'Jv^z% of 
the word with offset 8 in MP activation record 

and pushes it 

Store local word. Stores ' tos into word 
with offset & in MP activation T&card. 



5, A. 1. c 
BLD01 
SLD016 
LDO 



GLOBAL ONE WORD LOADS AND STORE 

232 



247 
167 



Short load global word. SLDOx fetches 
the word with offset x in BASE activation 
record and pushes it. 

Load global word. Fetches the word with 
offset B in BASE activation record and pushes 



LAO 



SRO 



65 



17. 



B 



Load global address. Pushes the word 
address of the word with offset B in BASE 
activation record. 

St.or? global word Stores tos into the 
word with offset B in BASE activation record. 



5. A. l. d 
l.OD 



INTERMEDIATE ONE -WORD LOADS AND STORE 



LDA 
STR 



.82 



178 
184 



DB* B Load intermediate word. DB indicates the 
number of static links to 'traverse to find the 
activation record to use. B is the offset 
within the activation record. 

DB* B Load intermediate address. 

DBi B Store intermediate word 
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5. A. 1. e INDIRECT ONE-WORD LOADS AND STORE 



STO 



SINDO 



154 



248 



Store indirect. Tos is stored into the 
word pointed to by tos-1. 

Load indirect. 



5. A. 2 MULTIPLE WORD LOADS AND STORES (SETS AND REALS) 



LDC 



179 



UB*<block> Load multiple word constant. UB is the 
number of words to load* and <block> is a 
word aligned block of UB words* in reverse 
word order. Load the block onto the stack. 



LDM 



188 



UB 



Load multiple words. Tos is a pointer 
to the beginning of a block of UB words. 
Push the block onto the stack. 



STM 



189 



UB 



Store multiple words. 



UB words* tos-1 is a word pointer to a 



simxliar block Transfer the block 
stack to the destination block. 



Tos is a block of 

a 
from the 



5. A. 3 BYTE ARRAYS 
BYT 210 



LDB 



STB 



MVB 



190 



191 



169 



B 



IXB 



209 



Byte conversion. Convert word pointer 
tos to a byte pointer. (NOP on the PDPli and 
Z80/8080 implementations. ) 

Load byte. Push the byte (after zeroing 
high byte) pointed to by byte pointer tos. 

Store byte. Store byte tos into the 
location specified by byte pointer tos-1. 

Move bytes. Tos is a byte source 
pointer to a block of B bytes* tos-1 is a 
byte destination pointer to a similiar 
block. Transfer the source block to the 
destination block. (This instruction is 
redundant due to word alignment* and will 
be replaced by MOV in the future. ) 

Index byte avvai^. Push a byte pointer 
formed from the integer index tos and the byte 
pointer tos-1. 



5. A. 4 STRINGS 
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LCA 



166 



UB*<chars> Load constant string address. Push a 

byte pointer to the location UB is contained 
in* and skip IPC past <chars>. 



SAS 



170 



UB 



String assign. 


Tos is either a source 


byte pointer or a 


character. (Characters 


always have a high 


byte of zero* while 


pointer never do. ) 


Tos-1 is a destination 


byte pointer. UB 


is the declared size of 


the destination st 


ring. If the declared 


size is less than 


the current size of the 


source string* a run-time error occurs* 


otherwise all byte 


s of source containing 


valid information 


are transferred to the 


destination string 


. 



SIP 



208 



S2P 



IXS 



157 



*J -J 



String to packed conversion on tos. Tos 
is a byte pointer to a string* and is 
incremented by one byte in order to point to 
the first character of the string. 



String to packed conversion on tos-1. 
Tos and tos-1 are byte pointers* and tos— 1 
incremented by one byte. 



is 



Index string arra^. Performs the same 
operation as IXB, except before indexing the 
index is checked to see if it is in the range 
1. . current length If not* a run-time error 
occurs 



5. A. 5 
MOV 



RECORD AND ARRAY INDEXING AND ASSIGNMENT 



168 



SINDO 


24B 


SIND7 


253 


IND 


163 



B 



Move words. Tos is a source pointer to 
a black of B words, tos-1 is a destination 
pointer to a similiar block. Transfer the 
block from the source to the destination. 

Short index and load word. SINDx indexes 
the word pointer tos by x words* and pushes 
the word pointed to by the result. 

Static index and load word. Indexes the 
word pointer tos by B words* and pushes the 
word pointed to. 



INC 



162 



Increment field pointer. The word 
pointer tos is indexed by B words and the 
resultant pointer is pushed. 



IXA 



164 



Index array Tos is an integer index* 
tos-1 is the avra'4 base word pointer* and B 
is the size (in words) of an arraij element. 
A word pointer to the indexed element is 

pushed 
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IXP 



192 



LDP 



STP 



186 



187 



UB_i/UB_2 Index packed array. Tos is an integer 
index/ tos~i is the array base word pointer. 
DB__1 is the number of element_j}er_word/ and 
DB_2 is the fieldjwidth (in bits). Compute 
and push a packed field pointer. 

Load a packed field. Push the field 
described by the packed field pointer tos. 

Store into a packed field. Tos is the 
data* tos~l is a packed field pointer. Store 
tos into the field described by tos-1. 



5. A. 6 DYNAMIC VARIABLE ALLOCATION AND DE-ALLOCATION 



NEW 



158 1 



MRK 



RLS 



158 31 



158 32 



New variable allocation. Tos is the size 
(in words) to allocate the variable/ and 
tos-2 is a word pointer to a dynamic 
variable. If GDIRP is non-nil/ cut HP 
back to GDIRP and set GDIRP to nil . Store 
NP into word pointed to by tos-l* and 
increment HP by tos words. 

Hark heap. Release GDIRP and set to nil 
if necessary/ then store HP into word pointed 
to by tos. 

Release heap. Set GDIRP to nil / then 
store word pointed to by tos into NP. 



5. B TOP OF STACK ARITHMETIC AND COMPARISONS 
5. B. 1 LOGICAL 



LAND 


132 




LOR 


141 




LNOT 


147 




EGUBOOL 


175 


6 


NEQBOOL 


183 


6 


LEGBOOL 


180 


6 


LE3BQ0L 


181 


6 


GEGBOOL 


176 


& 


GTRBOOL 


177 


6 



Logical and. And tos into tos-1. 

Logical or. Or tos into tos-1. 

Logical not. Take one's complement of tos 
Boolean =/ 



and > comparisons, 
Compare bit of tos-1 to bit_0 of tos and push 
true or false. 
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5. B. 2 INTEGER 
ABI 128 



AD I 


130 


NGI 


145 


SB I 


149 


MP I 


143 



SGI 



DVX 



MODI 



CHK 



1 sp 



134 



.42 



136 



EGUI 


195 


NEGI 


203 


LEG I 


200 


I n »il2.v3 ,i. 


201 


GEO I 


196 


GTRI 


197 



Absolute value of integer. Take absolute 
value of integer tos. Result is undefined if 
tos is initially -32768. 

Add integers. Add tos and tos-1. 

Negate integer. Take the two's 
complement of tos. 

Subtract integers. Subtract tos from tos-1 

Multiply integers. Multiply tos and tos-1. 
This instruction may cause overflow if result 
is larger than 16 bits. 

Square integer. Square tos. May cause 
overf law. 

Divide integers. Divide tos— 1 by tos and 
push quotient. (PDP11 quotient defined as in 
Jensen and Wirth; 280/8080 quotient defined 
by floor (tos— 1 /tos). ) 

Modulo integers. Divide tos-1 by tos and 
push the remainder (as defined in Jensen and 
Wirth) 

Check against subrange bounds. Insure 
that tos-1 O tos-2 <« tos* leaving tos-2 on 

the stack. If conditions are not satisfied 
a run-time error occurs. 

Inteaer =, 



•G 



>=, 



and > 
comparisons. Compare tos-1 to tos and push 
true or false. 



5. B.3 REALS 

All over/underflows cause a run-time error 
FLT 138 



Float top-of-stack. The integer tos is 
converted to a floating point number. 
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FLO 



TNC 



RND 



ABR 



137 



158 22 



158 23 



129 



ADR 


131 


NGR 


146 


SBR 


150 


MPR 


144 


SQR 


153 


DVR 


135 


POT 


158 35 



Float next to top-~of-stack. Tos is a real* 
tos~l is an integer. Convert tos-1 to a real 
number.' 

Truncate real. The real tos is truncated 
(as defined in Jensen and Wirth) and 
converted to an integer. 

Round real. The real tos is rounded (as 
defined in Jensen and Wirth>> then truncated 
and converted to an integer. 

Add reals. Take the absolute value of 
the real tos. 

Add reals. Add tos and tos-1. 

Negate real. Negate the real tos. 

Subtract reals. Subtract tos from tos~l. 

Multiply reals. Multiply tos and tos-1. 

Square real. 

Divide reals. Divide tos~l by tos. 

Power of ten. The integer tos is check 
for < ss tos <= 38# a run-time error 
occurring if the conditions aren't satisfied. 
The implementation dependent value 10 ^ tos 
is pushed. This facility allows the rest of 
the system to be independent of floating 
point format. 



SIN 


15S 


24 


COS 


158 


25 


ATAN 


158 


27 


EXP 


158 


29 


LN 


158 


28 


LOG 


158 


26 


SOT 


158 


30 


EQUREAL 


175 


2 


NEGREAL 


183 


2 


LEQREAL 


180 


2 


LESREAL 


181 


2 


GEGREAL 


176 


2 


GTRREAL 


177 


2 



Sine. Take the sine of the real tos. 

Cosine. 

Arctangent. 

Exponential. e ^ tos. 

Natural logarithm. 

Log base 10. 

Square root. 



Real 



O, 



<:~, 



and > comparisons. 



Push TRUE or FALSE. 
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5. B. 4 SEJS 
AD J 160 



SQS 



SRS 



INN 



UNI 



INT 



DIF 



EQUPOWR 
NEQPOWR 
LEGPOWR 
GEGPOWR 



151 



148 



139 



96 



140 



133 



175 8 
183 8 
180 8 

176 8 



UB 



Adjust set. The set tos is forced to 
occupy UB words* either by expansion (putting 
zeroes "between" tos and tos-1) or 
compression (chopping of high words of set)* 
and its length word is discarded. 

Build a singleton set. The integer tos 
is checked to insure that O <= tos <= 4079* a 
run-time error occurring if not. The set 
E t o s 3 is pushed. 

Build a subrange set. The integers tos 
and tos-1 are checked as in SOS* and the set 
Ctos-1. , tos3 is pushed. (The set C3 is 
pushed if tos-1 > tos. ) 

Set membership. See if integer tos_l is 
in set tos* pushing TRUE or FALSE. 

Set union. The union of sets tos and 
tos~l is pushed. (Tos or tos-1. ) 

Set intersection. The intersection of 
sets tos and tas~l is pushed. 
(Tos and tos-1. ) 

Set difference. The difference of sets 
tos— 1 and tos is pushed. 
(tos-1 and not tos. ) 



Set 



<>, 



<= (subset of)* 



and 



(superset of) comparisons. 



5. B. 5 ST 


RINGS 




EQUSTR 


175 


4 


NEQSTR 


1.83 


4 


LEQSTR 


ISO 


4 


LE8STR 


iSl 


4 


GEQSTR 


176 


4 


GTRSTR 


177 


4 



String ~i 



<.>i 



and > 
comparisons. The string pointed to by word 
pointer tos-1 is lexicographically compared 
to the string pointed at by tos. 
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5. B. 6 



BYTE ARRAYS 



EQUBYT 
NEGBYT 
LEGBYT 
LESBYT 
GEGBYT 
GTRBYT 



175 10 
183 10 

ISO- 10 
1S1 10 

176 10 

177 10 



Byte array 



and > 
comparisons. <=* <* >=* and > are only 
emitted for packed arraus o£ char. 



5. B.7 ARRAY AND RECORD COMPARISONS 

yord or multiword structure 
comparisons. 



EGUWORD 
NEGWORB 



175 12 
183 12 



and 



5. C 



JUMPS 



Simple (non-case statement) jumps are all two bytes long. The 
first byte is the op-code* the second is a SB jump offset. If this 
offset is non-negative* it is simply added to IPC. (A value of zero 
for the jump offset will make any jump a tuio-byte nop. > If SB is 
negative* then SB div 2 is used as a word offset into JTAB* and IPC 
is set to the bMie. ad dr ess (JTAB^CSB div 23) - JTABESB £is£ 23, 



UJP 

FJP 
EFJ 

NFJ 

XJP 



185 

161 
211 

172 



IS 



SB 



Unconditional jump. Jump as described 
above. 

False jump. Jump if tos is false. 

Equal false jump. Jump if integer tos O 
tos-1. Not implemented in 1.4. 

Not equal false jump, Jump if integer 
tos = tos-1. Not implemented in 1.4. 



W 1,W 2, W 3, Cease table> 



Case jump. W_i is word-aligned* and is 
the minimum inds* of the table, W_2 is the 
maximum index. W_3 is an unconditional 
jump instruction past the table. The case 
table is W„J2-W_1 + 1 words long* and contains 
self -relative locations. 



If tos* the actual index* is not in 
range W^l. . WJ2* then IPC is pointed, at 
W„3. Otherwise* tos~W_jt is used as an 
index into the table* and IPC is set to 
by te_ad dress (case tab leE inclex-min_index 3) 
casetableCindex-fnin < _index3. 



the 
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5. D PROCEDURE AND FUNCTION CALLS AND RETURNS 

The general scheme used in procedure/function invocation is 

1) Calculate the data_size and parameter^si ze of the called 
procedure by using the information in the current procedure 
dictionary (pointed to by SEG). 

2) Extend stack by data__size bytes. 

3) Copy parameter_size bytes from the old top-of -stack to the 
beginning of the space just allocated. 

4) Build a MSCW* saving SP* IPCi SEG, JTAB* MP* and a pointer 
to the most recent activation record of the called procedure's 
immediate parent. 

5) Calculate new values for SP* IPC* JTAB* MP* and if necessary* 
SEG. Check for stack overflow. 

6) If the called procedure has a lex level of -1 or O save BASE 
and calculate a new BASE. 

CLP 206 UB Call local procedure. Call procedure UB# 

which is an immediate child of the currently 
executing procedure and in the same segment. 
Static link of MSCW is set to old MP. 

CGP 207 UB Call global procedure. Call procedure 

UB, which is at lex level 1 and in same 
segment. The static link of the MSCW is set 
to BASE. 

CIP 174 UB Call intermediate procedure. Call 

procedure UB in same segment as the 
currently executing procedure. The static 
link of the MSCW is set by looking up the 
call chain until an activation record is 
found whose caller had a lex level one 1 
less than the procedure being called. Use 
that activation record's static link as the 
static link of the new MSCW. 

CBP 194 UB Call base procedure. Call procedure UB* 

which is at lex level -1 or 0. The static 
link of the MSCW is set to the static link 
in BASE'S activation record. The BASE is 
saved* after which it is pointed at the 
activation record just created. 

CXP 205 D3_J*UB__2 Call external procedure. Used to call 

anq procedure not in the same segment as 
the calling procedure* including procedures 
at lex level -1 or 0. It works as follows: 

1) Is desired segment in memory? This 
is determined by traversing up the call 
chain until an activation record of a 
procedure in the desired segment is found* 
or the operating system's resident 

CSV -- e.cU note.: It ia)cu> pointed out that op-code, 15S tA CSV, and aj> 6catteAe.d th/ioughout 
thJJ> doc.ume.nt. ThtA waJUL be. cZe,cuie.d up tn the. next mcijoh. doc.ume,ntatton 
e,{{onX. 
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activation record is encountered, 

2a) no: read in segment from disk using 
the information in the segment dictionary* 
then build an activation record. Howeveri 
extend stack by data_si ze+paramsi ze in step 
2. 

2b) yes. build activation record normally 
3) calculate the dynamic link for the 
MSCW: If the called procedure has a lex 
level of -1 or 0» set as in CBP# otherwise 
set as in CIP. 



RNP 



173 



DB 



RBP 



EXIT 



193 



15S 4 



DB 



Return from non-base procedure. DB is 
the number of words that should be returned 
as a function value (0 for procedures* 1 for 
non-real functions^ and 2 for real functions) 
DB words are copied from the bottom of the 
data segment and "pushed" onto the caller's 
top- of~stack. The information in the MSCW 
is then used to restore the caller's 
correct environment. 

Return from base procedure. The saved 
base is moved into .BASE* after which things 
proceed as in the RHP instruction. 



Exit from procedure. 



e d ur e 



! tJ/lb *•?" 



1 



T o s is the 



number This operator sets IPC to point to 
the exit rode of the currently executing 
procedure/ then sees if the current 
procedure is the one to exit from. If it 
is* control returns to the instruction 
fetch loop, 

Otherwise* each MSCW has its sav%6 IPC 
changed to point to the exit code of the 
procedure that invoked it# until the 
desired procedure is found. 

If at any time the %av&& IPC of main body 
of the operating system is about to be 
chanaedi a run-time error occurs. 



5. £ SYSTEMS PROGRAMS SUPPORT PROCEDURES 

See Section 2. 1 for description of these procedures. 
BYTE ARRAY PROCEDURES 

FLC 158 10 FillcharCdst, lsn, char). 
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SCN 


158 n 


MVL 


158 Ql 


MVR 


158 03 



Scan<maxdisp# start/ forpast* char/ mask) 
Movelef t<src* dst> numbytes). 
Hover ight< src; dst> numbytes). 



COMPILER PROCEDURES (still undocumented) 
TRS 158 OS Treesearch. 

IDS 158 07 Idsearcb. 

DEBUGGER 
BPT 213 Breakpoint (conditional HALT) 

MISCELLANEOUS 
TIM 158 09 Time. 

XIT 214 
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No t e s — 



'age 200 



* INTRODUCTION TO THE PASCAL PSEUDO-MACHINE * * Section 3. 5 * 

Version 1.5 September 1978 

UCSD uses an interpreter based implementation of Pascal. This 
implementation is interpreter based. This means that the compiler emits 
code for a pseudo-machine which is emulated at run time by a program 
written in the machine language of the host. The compiler* program 
editor* small stand-alone operating system/ and various utilities are 
themselves written in Pascal and run on the same interpreter. Thus the 
entire system can be moved to a new host machine by rewriting the 
interpreter for the new host. 

Figure 3.5.10 <the last page of this document) is a skeleton version 
of a large Pascal program* here-in-after referred to as "The Program". 
This document is a top-down description of the realization of that 
program on the UCSD Pascal system. We will make occasional use of a 
helpful coincidence: The Program is the framework of the portion of 
the UCSD Pascal environment that's written in Pascal. 

If The Program were sxpantied to a complete Pascal system/ it 
would consist of at least 6000 lines of Pascal and compile to more than 
50/000 bytes of code — too big to fit all at once into the memory of a 
small machine <by our current definition of small). We have therefore 
extended Pascal so that a programmer can explicitly partition a program 
into segments; only some of which need be resident in main memory at 
a time. The syntax of this extension is shown in figure 3.5.1. (Any 
syntactic objects not defined explicitly there retain their standard 
interpretation as defined by Jensen & Wirth: Pascal User Manual and 
Report . ) 

<program> : : = <program heading> <segment block> . 

<segment hIock> : : ~ -Clabel declaration part> 

•Cconstant declaration part> <type definition part> 
■Cvariable declaration part> -Csegment declaration part> 
<segment body> 

<segment declaration part> : : ~ SEGMENT <procedure heading> 
<segment block>; \ SEGMENT <function heading> 
< segment block>/ 

<segment body>: : « <procedure and function declaration part> 

statement part> 

FIGURE 3. 5 1. SEGMENT DECLARATION SYNTAX. 
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Segment declaration syntax (figure 3.5.1) requires that all nested 
segments be declared before the ordinary procedures or functions of 
the segment body. Thus* a code segment can be completely generated 
before processing of code for the next segment starts. This is not a 
functional 1 imitation,, since forward declarations can be used to allow 
nested segments (COMPILER in The Program) to reference procedures in 
an outer segment body (CLEARSCREEN) . Similarly, segment procedures 
and functions can themselves be declared forward. 
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FIGURE 3. 5. 



PASCAL SYSTEM CODE FILE. 
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The code file resulting from compilation of The Program is 
diagrammed in figure 3.5.2*. The file is a sequence of code segments 
preceded by a segment dictionary. The size of each segment is noted 
in o locks, the 5i2~byte disk allocation quantum used on most PDP-11 
operating systems. The sizes indicated are representative of a full 
Pascal system. Each code segment begins on a block boundary. The 
ordering (from I oui address to high address) is determined by the order 
that one encounters segment procedure bodies in passing through The 
Program. 

* An overview of the relationship between figures 3.5.2 through 
3.5.8 (to be discussed in the following pages) is given in figure 3.5.9 
at the end of this section. It is helpful to study figure 3. 5. 9 at this 

point for a better understanding of the section. 
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gment dictionary in the first block of a code file contains 
r each code segment in the file. The entry includes the 
on and sizeCin bytes) for the segment. The disk location 
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A code segment contains the cod 
procedures* including the segment proce 
detailed diagram of the code segment of 
Each of a code segment's procedures are 
starting at 1 for the segment procedure 
(current temporary limit of 127). All 
made via its number. Translation from 
the code segment is accomplished with t 
end of the segment. This dictionary is 
procedure number. Each arraii element i 
code for the corresponding procedure, 
procedure number- the zero'th entry cf 
the segment number (even byte) and numb 
Observe that CLEARSCREEN is the first p 
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Procedure #1 
Procedure #2 



PASCALSYSTEM 
CLEARSCREEN 



_ __ res t of — - - - 
procedure dictionary 



PASCALSYSTEM' s outer block code 



other procedures of the Pascal system 
PROCEDURE #3 code 

PROCEDURE #2 (ciearscre^n) code 
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FIGURE 3. 5. 4 A CODE SEGMENT 
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A more detailed diagram of a single procedure code section is 

se = ii in figure 3.5.3. It consists of tu?o parts: the procedure code 
itself in the lower portion of the section? and a table of attributes 
of the procedure, These attributes av*»- 

LEX LEVEL: This odd byte is the depth of absolute lexical nesting 
for the procedure. (i.e. Lex Level (LL) Pascalsy stem=-lj LL COMPILER 
or CLEAR3CREEN=G, LL COMPINIT=l, etc. ). 

PROCEDURE NUMBER: Th is even byte refers to the number given in the 
procedure dictionary of the parent segment procedure. For example, 
the Procnum of CLEARSCREEN is 2. (see figure 3.5.4). 

ENTER ICrThis is a self-relative pointer to the first instruction 
to be executed for this procedure. 

EXIT ICiThis is a self-relative pointer to the beginning of the 
block of procedure instructions which must be executed to terminate 
procedure properly. 

PARAMETER SIZE: The param size is the number of bytes of 
parameters passed to a procedure from its caller. 

and DATA SEGMENT SIZE: The data size is the size of the data 
segment (See below) in bytes, excluding the markstack and PARAM SIZE. 

Between these attributes and the procedure code there may be an 
optional sect ion of memory called the "jump table". Its entries ave 
addresses within the procedure code JTAB is a term commonly applied 
to the six attributes just discussed and the jump table itself. 
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FIGURE 3. 5 5. PROCEDURE CODE SECTION (OF CLEARSCREEN) 
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high addresses 
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FIGURE 3.5.6. SYSTEM MEMORY DURING CLEARSCREEN EXECUTION 



ca 



Figure 3 5 6 is a snapshot of system memory during the execution of a 
11 to procedure CLEARSCREEN from line C in COMPINIT. The Pascal 
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interpreter occupies the lowest area in memory. In it is the system 
communications areatslso called SYSCQM) * wh ich is accessible both to 

assembly language routines in 

T t 




Consider the status of operations just before COMPINIT is called 

in line B. Conceptually* there av& six pseudo-variables u>hich point 

t o 1 o c a t \ on s in me mor y : 

a STACK POINTER (SP ): u*h ich points to the current top of the stack* 

a MARK STACK POINTER (MP ): which points to the '■'topmost" markstack 

in the stack/ (rsmemb&r that the the stack groups down!)* 

a SEGMENT ( 3EG ) variable; which points to the base of the procedure 
dictionary for the currently active segment procedure, For example. 
just before COMPINIT is called, SEG points to the COMPILER segment's 
procedure dictionary* 

an INTERPRETER PROGRAM COUNTER < IPC ): uh ic h contains the address of 
the next instruction to be executed in the code segment of the current 
procedure* 

a JTAB pointer : wh ich points to the collection of procedure 

attributes and jump table entries in the body of the current procedure 
code section, 

-md a NEW POINTER (HP )' wh ich point*; to the current top of the 
heap. 

Mhen segment procedure COMPINIT is called in line Bi its code 
segment (including all compiler initialization procedures) is loaded 
on the stack. The COMPINIT data segment is built on top of the stack. 
Fiaur« 3. 5.7 is a diagram of the data segment for COMPINIT.. 
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high addresses 
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BOOL 
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MSJTAB 
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MSSTAT 
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•> mark stack 



low addresses 



FIGURE 3. 5, 7. 



A DATA SEGMENT 



In the upper portion of the data segment* space is allocated for 
variables local to the new procedure, Tor examp le.« COMPINIT 's data 
segment allocates space for integer variables I and J* as well as 
boolean BOOL, 

In the lower portion of the data segment is a "markstack ". When 
a call to any procedure is mad& t the current values of the 
pseudo-vsr iabl es< which characterize the operating environment of fche 
calling procedure* &r% stored in the marfcstack of the cal led 
procedure. This is so that the pseudo-variables may be restored to 
pre-call conditions when control is returned to the calling procedure. 

For example* the call to COMPINIT cau^^^ conditions in COMPILER 
just before the call to be stared in COMPINIT 's markstack in the 
following manner: 



Mar kS tack DYNamic link (MSDYN) O™ HP 
IPC (MSIPC) < — IC 
SEQcnent Pointer (MSSP©) O- SEQ 
Jump TABle < MSJTAB) <— JTAB 



Stack Pointer (SP> <- 



SP 
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In addition a Static Link field becomes a pointer to the data 
segment of the lexical parent of the called procedure In particular! 
it points to the Static Link field of parent's markstack. After the 
building of the data segment new values for IC* SEQ* SP* JiP* JTAB* and 
MP are established for the new procedure. 

When the call to CLEARSCREEN is made on line C> another data 
segment is a46sdt to the stack and again the pseudo-variables are 
stored in the new markstack* as well as the appropriate Static Link* 
and updated. Nate that now the SEO no longer points to the COMPINIT 

procedure dictionary* but to the Pascal system dictionary. 

No code segment for CLEARSCREEN is added to the stack before the 
data segment since the code for CLEARSCREEN is already present in 
segment Pascalsystem. Its invocation causes only a data segment to 
beadded to the stack. Mhen CLEARSCREEN and INIT are completed* the 
COMPILER data segment will again be the top element on the stack. 

Figure 3, 5. 8 is a detailed diagram of the stack during execution of 
en instruction in CLEARSCREEN/ including appropriate pointers for 
static* dynamic^ -etc. links of CLLARGCREEiM ' s markstack. Note where 
the pseudo-variables point in the stack. In particular* JTAS points 
inside CLEARSCREEN code section which is in the Pascalsystem code 
segment* IC points inside that CLEARSCREEN code* and SEG points to the 
base of the Pascalsystem code segment. 
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Figure 3.5.9 illustrates a top -down process by showing the 
relationships among diagrams 2 through 7. 



code file 

f igur e 3. 5, 2 

! PASCAL SYSTEM 
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figure 3 5. 4 

CLEARSCREEN 

code detail 
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I figure 3. 5.3 ! 

« segment dictionary detail ! 
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PROGRAM PASCALSYSTEM; 
VAR 

SYSCOM : SYSCOMREC ; 

CH.CHAR; 

PROCEDURE CLEARSCREEN: FORWARD; 

SEGMENT PROCEDURE USERPRQGRAM; 
BEGIN 

END; 
SEGMENT PROCEDURE COMPILER; 
VAR 

SY, QP: INTEGER; 

SYMCURSOR: INTEGER; 

PROCEDURE INSYMBOL; FORWARD; 

SEGMENT PROCEDURE COMPINIT; 
VAR 

I, J: INTEGER j 

BOOL: BOOLEAN; 
BEGIN 

I: = 1. 

CLEARSCREEN; — --LINE C 

INSYMBOL; 

END; 

PROCEDURE INSYMBOL; 
BEGIN . . . END; 

PROCEDURE BLOCK; 
BEGIN ... END; 
BEGIN <#CQMPILERtf> 

COMP INIT; —— — --—..-.- . — . LINE B 

INSYMBOL; 

END; (^COMPILER*) 

SEGMENT PROCEDURE EDITOR; 
BEGIN . . . END; 

PROCEDURE CLEARSCREEN 
BEGIN 

WR I TE < — —-- ~~~ — —.— . j • 

END? 

BEGIN <*PASCALSYSTEM*) 
REPEAT 

READCCH); 
CASE CH OF 

C: COMPILER; — .—-.-..-— ,-— ~. ___-.l INE A 

E: EDITOR; 

U: USERPROGRAM 

END<»CASE*> FIGURE 3.5.10. THE PROGRAM 

UNTIL CH = 'H' 
END, 



* BYTE-SWAPPING * * Section 3. 6 * 
#######&*#####■*## ##•«•#*#•*•}*•*##•»•*•*•«• 

Version I. 5 September 1978 

Byte-swapping problems occur when code generated on one machine 
is transferred to another or programs which directly interface with 
memory (e.g. the Patch utility ) av& written on or for one machine and 
transferred to another which has a different ordering for its memory. 

There are two- different ways to order bytes in a given memory: 

A) Byte Zejro is the byte containing the least significant 
half of the word. Byte One. contains the most significant 
half. 

B) Byte Zero is the byte containing the most significant 
half of the word. Byte One contains the least significant 
half. 

The difference between these is the way Byte quantities are 
read and stored in memory. Word quantities* such as integers, will be 
read and looked at in the same way on both types of machines. However* 
byte quantities such as P-code or characters will be reversed. 

An example: 

DEFINITION (A) (B) 

Is* ms* ms# Is* 



VALUE* (Hex) ! 04 ! 07 ! ! 07 ! 04 ! 

BYTE 1 1 

< least/most significant bit* thereby least/most significant byte ) 

If both of the bytes shown above were read as an integer > a 

word quantity, they would give the value 3/588. However* if the value 
of byte Zero ^s wanted (as in; C: PACKED ARRAYCO. .13 OF CHAR; ) then 
Definition A would show a value of 04H &r*Q Definition B would show a 
value of 07H. Both definitions would show the value 07H if the most 
significant byte were specified. 

Byte-swapping is not a hard problem to solve* it just requires 
a little thought. The Patch utility has type declarations for both 
types of machines at\d a study of it should suffice to show how to 
satisfy your programming needs. 
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■H- •& 4t"5fr "S" * * * *# * •$<■ •% * •& •** *& •& * 

* THE CALCULATOR * 



•Jfr * * * •&"£• ■}(• * -S- ■#• •W-H- it- •Jut 

* Section 4. 1 * 



Version 1.5 September 1978 

The prompt; '->' , expects a one line expression in algebraic 
form. Up to 25 different variables are available* each with different 
values assigned using the syntax of the given grammer. Only the first 8 
letters are used to distinguish between variables. Variables having a 
value may be used as constants. There are two built-in variables: PI 
<3. 141593) and E (2.718282). These values may be changed by the user. 

No distinction is made between upper and lower case letters. 

The nOD function is the backslash '\': the PASCAL MOD function 
is used and the operands are rounded to be integers. WARNING: Since 
this uses the PASCAL defn. of MOD ( see Jensen & Wirths' Pascal User 
Manual and Report Second Edition page 108) the results obtained may not 
be as expected. 

The operand of the factorial function 'FAC is also rounded to 
be an integer which must be between zero and thirty-three inclusive or 

the expression will be rejected. 

The uparrow '■" w is used for exponentiation. The operand must 
be positive or the expression will be rejected as e A Y LN ( X ) is 
used to calculate the answer. 

'LASTX' is a constant which is assigned the value of the 
previous correct expression by the calculator and may be used in the 
following expression instead of inserting the same expression again. 

Angles for the TRIG functions must be in RADIANS. Degree to 
Radian conversion is accomplished by RADANGLE = ( PI / 180 ) * DEGANGLE. 

This program will bomb on an execution error if an over or 
underflow occurs. If this happens all user assigned variables and their 
values will be lost. 

To leave the calculator mode simply type <RET> immediately 
following the prompt. 

EXAMPLE OF CALCULATOR SESSION: 



•> PI 

3. 141592 
•> LASTX 

3. 141592 
> HALFPI = PI / 2 

1. 570796 
•> SIN ( HALFPI > 

1. O 
.>A = B=C = D = F 



( FAC (3) / 2 ) 
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3. 


— > 


A 




3. 


-> 


C 




3. 


-> 


1 
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-> 
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7/4 
4. 75 


-> 


SORT (2*2+3*3) 








3. 605551 
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# LIBRARIAN UTILITY * * Section 4. 2 * 
Version I. 5 September 1978 



LIBRARY CODE is a utility program that allows the user to link 
separately compiled PASCAL units and separately assembled subroutines 
into a LIBRARY file. It is based upon the original pre-I. 5 utility 
LINKER. CODE and operates in basically the same way. 



To add a segment to *SYSTEM. LIERARY it is necessary to create 
e into which each segment that is wanted from the original 

is first linked. It is then possible to add segments 
fey linking from another code file into the new file being created. 



new fi! 
*SYSTEM. LIBRARY 



EXAMPLE 

Consider the case of adding a segment called TURTLE to the 
already existing file *SYSTEM. LIBRARY which is assumed to contain the 
segments PSGRAPHICS and MOVETO. 

On executing LIBRARY, CODE* the user is prompted for the name of 
the output codefile. For this example* respond with the name 
NEW. LIBRARY. The program now asks for a 'Link Code File'. The 
response here is ^SYSTEM. LIBRARY. The names of all segments currently 
linked into the input library! i.e. *SYSTEM. LIERARYi as well as their 
length in bytes is now displayed. Currently there are a maximum of 16 
segments in any PASCAL prog-ram or LIBRARY, 



0- 


MOVETO 


2398 


4 , 


i— 


P3SRAPHI 


3g-4 


5 


2~~ 







6 


3- 







7 






8- 





9- 





10- 





11- 






10- 





11- 





14- 





15- 



o 
o 
o 





ThQ following promptline appears: 

Segment # to link and <space>.- NCew Pile* Q(uit, A'.bort 

The user now enters the number of a segment within the link 
code file that is to be linked into the new library filei followed by 
<spac6>. Nexti ib& number of the segment in the output file to be 
linked into (i.e. NEW. LIBRARY) is typed followed by CspaceX For each 
segment linked the librarian reads that segment from the input file and 
writes it to the output file at the segment requested. It then 
displays the segment table for the current state of the output library 
file. In this example* respond with the following: 
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0<sp ace> 

Seg to link into? 0<space> 

Kspace> 

Ssg to link into? Kspace> 

When all needed segments have been linked a new input file is 
requested by typing 'N' for NCew file. In this example/ a separately 
compiled PASCAL UNIT called TURTLE is assumed to exist in a codefile 
called TGRAPHICS. CODE. See section 3,2, UNITS. On entering the name 
of this file the following display appears: 



0- 
1- 
2- 
3- 



4- 

5- 

6- 

O 7- 






8- 







10 




9- 







11- 





10- 


TURTLE 


230 


14 





11- 







15 







o 



The Unit TURTLE occurs in segment 10 and is to be linked into 
segment 2 within NEW. LIBRARY. The user responds* 

3.0<space> 

Seg to link into? 2<space> 

The final display of the output library segment table is thus: 



0- 


MOVETO 


2398 


4- 


1- 


PSGRAPHI 


864 


5- 


2- 


TURTLE 


230 


6- 


3- 







7- 






8' 





9 





10 





11 






10™ 





11- 





14- 





15— 



o 
o 
o 
o 



The output library codefile length is displayed and in this 
example is 16 (blocks long). 



Once the needed segments from ell input files have been linked 
in the user locks the output file by typing 'Q' followed by a return, 
(unless a copyright notice is desired within the codefile). Type 'A' 
to abort the linking process. The old *SYSTEM. LIBRARY should either be 
removed or its name changed if it resides upon the same disk and the 



name NEW LIBRARY must be chanced 
used. 



"EM. 



x fid Mrs t 



in 



d e r to.be 



NOTE 

In response to the initial prompt "Output Code File —>" we 
could have just as easily said ^SYSTEM LIBRARY followed by another 
•*5Y5TEM. LIBRARY in response to the prompt "Link Code File ->". 
However • in this case the original ^SYSTEM LIBRARY will be removed 
automatically upon completion of the linking process. 
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# SETUP - SYSTEM RECONFIGURATION * * Section 4. 3 * 

Version I. 5 September 1978 

The UCSD Pascal Operating System keeps certain information 
about the user in a file called SYSTEM. MISCIMFO. During each system 
initialization this file is resc! into memory* and from there it is 
accessed by many parts of the system/ particularly (if the user has a 
terminal suitable for it) by the screen oriented editor. 

Much of this information needs to be initially set up by the 
user to conform to his particular hardware- configuration or his taste 
or convenience. Most of this information concerns the nature of his 
terminal and keyboard* although there are a few miscellaneous fields. 

SETUP is T'.'iTi lib* any other compiled Pascal program* by 
entering the Command level of the system* typing X for eXecute and 
typing the filename SETUP followed by a carriage return. 

SETUP: C CHANGE) T(EACH) H<ELP) GCUIT) 

If this does not happen it may be because the setup program is 
not on the disk. If so> the system will display the message 

no file setup. CODE 

If neither of the above happens? something is drastically wrong. 
Contact UCSD. Assuming all is well* continue. 

All commands to the SETUP program cive invoked by typing a 
sing la- letter chosen from the promptline. 

SETUP. C<HANGE) T<EACH> H { ELP > Q<UIT) 

Type 'H' to find out what the commands at this level do. The 

pTo$T&<?- is £*?!f teaching, so the rest of this document explains the 
information SETUP usas designed to change. 

SETUP does not tell the system how to do random access cursor 

addressing on the user's terminal (for those terminals which have this 
capability) To allow the system to use that feature* please refer to 
Section 4. 7 o? this document package. 

4. 3 1 MISCELLANEOUS INFORMATION 

HAS CLOCK 

Values: TRUE. FAt_.SE 

A real time clock is available. A real time clock module* such 
as the DEC KW11/ may be found on many processors. It is assumed to be a 
line frequency (60 cycle) clock. If available it is used by the PASCAL 
system to optimize disk directory updates. See section 2. 1.6 TIME intrinsic. 
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HAS 8510A 

Values: TRUE, FALSE 

The system is running on a Terak 8510a hardware configuration. 

4. 3. 2 GENERAL TERMINAL INFORMATION 

HAS SLOW TERMINAL 

Values: TRUE, FALSE. 

When this field is true* the system issues abbreviated 
promptlines and messages. 

Suggested setting: 600 baud and under -- True* otherwise False. 

HAS RANDOM CURSOR ADDRESSING 

Values: TRUE, FALSE 

Only applies to video terminals. See Section 4. 7 in order to 
allow the system to make use of this feature. 

HAS LOWER CASE 

Values: TRUE, FALSE 

SCREEN WIDTH 

The number of characters per line of a terminal. 

SCREEN HEIGHT 

The number of lines p&r display screen of a video terminal. 
Set to O for a hard copy terminal or other terminal in which paging is 
not appropriate. 

NON-PRINTING CHARACTER 

Values: Any printing character, 

What should be displayed by the terminal to indicate the 
presence of a non-printing character 

Recommended setting: ASCII "?". 

VERTICAL MOVE DELAY 

The number of nulls to send after a vertical cursor move. Many 
types of terminals require a delay after certain cursor movements which 
enables the terminal to complete the movement before the next character 
is sent. This number of nulls will be sent after carriage returns* 
ERASE TO END OF LINE, ERASE TO END OF SCREEN and MOVE CURSOR UP. 



4. 3. 3 CONTROL KEY INFORMATION 

The user may choose which control keys suit his particular 
keyboard arrangement and his taste. 

Some keyboards generate two codes when some single key is 
pressed. If that is the case for any of the keys mentioned here* it 
must be noted in the field PREFIXED C<f ieldname>3 which has either the 

value TRUE or the value FALSE. The prefix for all such keys must be 
the same and must he noted in the field LEAD-IN FROM KEYBOARD. This 
i'eBturQ may also be used to access control functions with two- 
character sequences if a user's keyboard is unable to generate many 
control characters. As an example* suppose the user's keyboard had a 
vector pad which generated the valus pairs ESC n U"> ESC "D"* ESC "L" 
and ESC "R" for the keys for Uparrow, Downarrow, Left-arrow and 
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Rightarrow* respectively , Assume also that all other keys on the 
keyboard generate only single codes, Then the user mould give the 



f ol louiing 
KEY 
KEY 
KEY 

KEY 



fields the 
FOR MOV I NO 
FOR MOVING 
FOR MOVING 
FOR MOVING 



f o.l lour 

CURSOR 

CURSOR 

CURSOR 

CURSOR 



ng values 

UP 

DOWN 

LEFT 

RIGHT 



LEAD-IN KEY FOR KEYBOARD 
PREFIXEDCKEY FOR MOVING CURSOR UP J 
PREFIXEDCKEY FOR MOVING CURSOR D0WN1 
PREFIXED?: KEY FOR MOVING CURSOR LEFT 3 
PREFIXEDCKEY FOR MOVING CURSOR RIGHT 3 



ASCII 

ASCII 

ASCII 

ASCII 

ESC 

TRUE 

TRUE 

TRUE 

TRUE 



"D" 
"L" 
"R" 



KEV FOR STOP 

Console output stop character. The STOP character is a toggle; 
when pressed/ the key mill cause output to the file 'OUTPUT' to cease. 
When the key is depressed again, the write to file 'OUTPUT' will resume 
where it left off. This function is ve-fy useful for reading data which 
is being displayed faster than one can veaii, 

Suggested setting: ASCII DC3 

KEY FOR FLUSH 

Console output cancel character. Similar in concept and usage 
to the STOP key. the FLUSH key will cause output to the file 'OUTPUT' 
to go undisplaysd until FLUSH is pressed again or the system writes to 

file 'KEYBOARD''. Note that, unlike the STOP key, processing continues 
uninterrupted while output goes undisplayed. 
Suggested setting: ASCII ACK 

KEY FOR BREAK 

Typing the character BREAK will cause the program currently 
executing to be terminated with a run-time error immediately. 

Suggested setting: Something difficult to hit accidentally. 

KEY TO END FILE 

Console end of file character. When reading from the files 
KEYBOARD or INPUT or the unit 'CONSOLE: '* this key sets the Boolean 
function EOF to TRUE, See section 2. 2 4 EOF intrinsic. 

Suggested setting: ASCII ETX 

KEY TO DELETE CHARACTER 

Each time you press this key one character is removed from the 
current line> until nothing is left on that line. 

Suggested setting. ASCII BS 

KEY TO DELETE LINE 

Depressing LINE DELETE will cause the current line of input to 
be erased. 

Suggested setting. ASCII DEL 
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The rest of this section contains information 
only of interest to users who are using video 
display terminals with a selective erase 
capability and may be safely ignored by users 
having any other kind of terminal/ such as 
hardcopy terminals or storage tube terminals. 



KEY TO MOVE CURSOR UP 
KEY TO HOVE CURSOR DOWN 
KEY TO MOVE CURSOR LEFT 
KEY TO MOVE CURSOR RIGHT 

These keys ar& used by the screen oriented editor to control 
the basic motions of the cursor. If the keyboard has a vector pad/ set 
these fields to the values it generates* otherwise/ we suggest 
choosing 4 keys in the pattern of a vector pad and use the control 
codes which correspond to them, for example the keys 'O'* '. '/ 'K' and 
'/ ' on most keyboards encircle an imaginary vector pad. You may wish 
to use a prefix character before such keys as described above. 



EDITOR H ESCAFE U KEY 

The key which* in the system screen oriented editor* is to be 
used to escape from commands; reversing any action taken. 

Suggested setting: ASCII ESC 

EDITOR "ACCEPT" KEY 

The key which, in the system screen oriented editor* is to be 
used to accept commands* making permanent any action taken. 

Suggested setting: ASCII ETX 



4. 3. 4 



VIDEO SCREEN CONTROL CHARACTERS 



This section describes the characters which, went sent to the 
terminal by the computer* controls the terminals actions. Yoou should 
consult the manual for your terminal to find the appropriate values.. 
If a terminal does not have one of these characters* the field should 
be set to O unless otherwise directed. 



Some screens require a two character 
of their functions If the first character 
is the same* it can be set as the value of t 
and for each <fieldm*me> which requires that 
the field PREFIXCCf i eldnameXI to TRUE. For 
END OF LINE and ERASE TO END OF SCREEN were 
the sequences ESC "L" and ESC "S" but all th 
were single characters. The user would then 
to the following values: 

LEAD-IN TO SCREEN 

ERASE TO END OF LINE 

ERASE TO END OF SCREEN 

PREFIXED tERASE TO EHD OF SCREEN! 

PREFIXEPCERASE TO END OF LINE3 



sequence to exercise some 
in all of these sequences 
he field LEAD-IN TO SCREEN 

pr&fix, the user must set 
example* suppose ERASE TO 
respectively performed by 
e other screen controls 

set the following fields 



ASCII 

ASCII 

ASCII 

TRUE 

TRUE. 



ESC 

"L" 
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ERASE TO END OF SCREEN 

The character which erases the screen from the current cursor 
position to the end of the screen, 

ERASE TO END OF LINE 

The character which* when sent to the screen* erases all 
characters from the current cursor position to the end of the line the 

cursor is on. 

ERASE LINE 

The character which* when sent to the screen* erases all the 
characters on the line the cursor is currently on. 

ERASE SCREEN 

The character which* when sent to the screen* erases the entire 

screen 

BACKSPACE 

The character which* when sent to the screen* causes the cursor 
to move space to the left. 

MOVE CURSOR HOME 

The character which moves your cursor to the upper left of the 
current page. IMPORTANT* If your terminal does not have such a 
character, set this field to CARRIAGE RETURN, ASCII mnemonic CR. 

MOVE CURSOR UP 
MOVE CURSOR LEFT 

The characters which move your cursor non-destructively one 

space ir) those directions. 



Paee 2Z.S* 



- Notes 
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* BOOTSTRAP COPIER * * Section 4. 4 * 

Version I. 5 September 1978 
The bootstrap copier BOOTER. CODE asks for the unitnumber of the 
volume on which to write the bootstrap. Refer to Table 5 for a list of 
volume numbers. It will then ask for a file name to write as the 
bootstrap. It writes the first two blocks of that file* so in order to 
copy the bootstrap from an existing disk* give it the disknamei and it 
will copy the bootstrap from the disk named to the unit numbered. 

To execute the BOOTER program/ type X BOOTER to Command level 
(assuming that there a copy of BOOTER. CODE on the disk). 



Page 227 



Notes 



>age 228 



* PATCH * * Section 4. 5 * 
*•**###*#■* ft**-*********-*** 



Version I, 5 September 1978 

On X<ecuting PATCH* the promptline is 

C(onsoIe> P<atchwrite* UKholewrite* Q(uit 

The options available are: 
Working with, and altering the file in the C(onsole mode. 
Dumping the file in a Hex* Decimal* Octal* or ASCII format* in the 
P(atch write mode. 

Dumping/concatenating and/or moving blocks in files with the 
WCholewrite mode. 
Leaving PATCH with the Q<uit command. 

In the C<onsoXe mode* the promptline changes with each command. 
The promptline always reflects the commands available at any given 
time* and no more. The full promptline is: 

Patch: R<ead> SCave, H<ex» M<ixed> G<et* G(uit Cnn3 

The number in square brackets at the end of the prompt is the current 
block being patched. The; first command to use is G(et. G(et will 
prompt 

Filename: <,cv for unit i/o> 

Respond to this prompt with the name of the file to be 
patched. If the disk/device has no directory* or has some problem with 
the directory* reference it by its Pascal unitnumber. Type a carriage 
return to this prompt* and the prompt is: 

Unitnum to patch C4* 5* 9. . 123 (0 will Quit) 

Having typed a successful entry to one of the two above prompts* the 
prompt will now be extended by the RCead command. R(ead will read up a 
block from the file/unit The prompt on entering R(ead command is 

BLOCK: 

Respond with a block number ir* the file/unit specified. There 
is no range checking provided on this read* so exercise care in the 
number typed. The promptline isnow extended with H<ex* MCixed and 
the block number in square brackets. H<ex and M<ixed display the 
block nssid. Using the H<ex command displays the block entirely in 
hexadecimal characters; using the fl'ixed command will display printing 
ASCII characters wbers* possible- ar*$ hexadecimal values elsewhere. The 
promptline is: 
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Alter: pad vector 1/5*3*0 0. . F hex characters* SCtuff* GCuit 

The vector keys on the terminal causes the cursor to move 
around in the data/ notice that there the cursor will remain only on 
the data* and will not move off the data, Typing a hexadecimal 
character changes the character the cursor is over provided that only 
one or more of the data positions is changed* when G(uitting from Alter 
mode* the Patch promptline will be extended with the S(ave command. 
Typing S(ave writes the changed data back to from where it was reati. 
In the Alter mode* there is one optional command: SCtuff. Typing the 
S(tuff command displays the prompt line: 

Stuff for how many bytes: 

Key a number front to 512. Type carriage return to cause 
patch to accept the number* the promptline changes to: 

Fill with what hex pair: 

Key a byte valu? in hexadecimal. The data reappears on the 
screen,, with the number of bytes specified* from the position of the 
cursor filled with the data value specified, to the hex p^ir prompt. 

Using the Patchwrite command causes a full screen prompt to 
appear: 



This procedure writes out sequential blocks to any file as a patch 
dump. Type the prefix character of the option to be changed Type 
to PRINT* 'G' to QUIT. 

A( Input File 

B< Beg in Block # 

C( Num. of Blocks 

EC Output File 

Q( Hexadecimal 

H( ASCII 

I ( Dec imal 

J< Octal 

Kt Decimal Bytes 

L< Octal Bytes 

M( Krunch 

N( Double Space 
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.-Following each of the fields is the current value of that 
field. Typing the character in front of the field places the cursor 
after the field, and removes the current value. Typing 'Y' or 'T' sets 
a boolean value to True* any other character sets the field to False. 
The Input File and Output File fields require a filename to be typed 
followed by carriage return. The integer fields (Begin Block/ and Num. 
of Blocks) require a number to be typed followed by carriage return or 
space Any other character sets the value of the field to some 
unspecified value. 

The other options at the Patchuirite level are Print and Quit. 
Both cause Patch to return to the outer level. Quit does it straight 
away/ Print dumps out the file in the requested format on the way. The 
options available for the dump need to be selected/ the default is 
none. The options Krunch and Double Space affect the formatting of the 
output. Krunchi when truei removes blank lines between logical output 
lines, Double Space when true* double spaces all output. 

Using the W(holeu?rite command causes the full page prompt: 



This procedure writes any number of blocks from an existing file 
to a new file* unchanged. Simply specify the necessary parameters 
Type 'P' to PUT, 'G' to QUIT 

I ( n p u t File 
SCtart Block 
N(umber of Blcks 



CKutput File 



The protocol for changing the fields at this level is the same 
as that for the Patchwrite level. The Wholewrite level is that which 
allows one to mix/match and mingle files. Put and Quit both cause 
Patch to return to the outer level/ Put writes to the file on its way, 
Quit does not, 

Notice that the Patchwrite and Wholewrite levels remember their 
vital parameters across sessions (while remaining in Patch). The 
Console level will clear all memory of the session. The Patchwrite 
level paginates its output/ after each block written/ a form-feed is 
generated. (Specifically PAGE(OUTPUTFILE) ) . 
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* RT11 to PASCAL CONVERSION KIT * * Section 4. 6 * 

&%&&#&*&**#*##%%####&&&&*#•#%#&*#■# *************** 

Version I. S September 1978 

The utility file labeled RT11TOEDIT is intended for use with 
RT-11 disks. It assumes the presence of an RT-il directory spanning 
blocks 6-7. When the file is executed it asks the user to specify the 
Pascal system unitnumber of the volume of which the user wants to view 
the directory. Once a legal on-line unit has been specified. 
RT11TOEDIT reads each entry on blocks 6-7. The program uses the 
UNITREAD intrinsic to read the directory and does not open the file in 
the usual manner. It lists on the screen the entire contents of the 
directory. For each entry it specifies the file title* file kind* the 
size of the file in blocks, and the starting block location of the file 
(in base 10). All unused portions are identified as such. The user 
will be prompted for an RT-11 file name/ a Pascal system file name, and 
finally a mode of transfer. 
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***************** **************** 
* GOTOXY BINDER * * Section 4* 7 * 
***************** **************** 

Version I* 5 September 1978 

Usins SETUP atone is not enough to implement full 
cursor-controlled operation on your terminal* To achieve xy 
cusror addressing you must prepare a Pascal procedure similar 
to those on the following page* but designed to handle 
random cursor addressing appropriately for your terminal* 
Compile the procedure* then run BINDER on the resulting code 
file* 

The BINDER prosram alters the SYSTEM* PASCAL on the 
default P(refix disk* inserting your special cursor addressing 
procedure into the system under the name GOTOXY* It asks for 
the name of a file containing the compiled p-code version of a 
'GOTOXY procedure* ' This procedure is defined as 

PROCEDURE GOTOXY (COLUMNX* ROWY» INTEGER) t 

In systems where the console device is a cursor- 
controlled CRT terminal* GOTOXY is used by various system 
software (and may also be called within user programs) to 
position the screen cursor to the column* row co-ordinates x 
and y* Thus* GOTOXY (2* 3) would send the screen cursor to 
column 2 of row 3* It is assumed that the upper left-hand 
comer of the screen has co-ordinates x*0* y s 0* 

Note that the procedure itself must NOT be named 
GOTOXY* but takes that name automatically after being bound 
into the system* For example* even though you may cal I your 
procedure "MYTERMXY"* once it is bound into the operating 
system* you must use the name "GOTOXY" to access it* 

The compiler directive (**U-*)# or <*U-> must be the 
first thins in the Pascal text file containing your GOTOXY 
procedure* If it is not* you wi I I get a value range error when 
executing BINDER* 

The GOTOXY procedure definition itself is enclosed 
within a "dummy" program definition (see the " IQ120XY" 
sample procedure on the following page) where the statement 
part of the dummy program is simply a null* If* when compiling 
the program you get a "nil memory reference"* remove the 
program heading <but not the null statement block) and 
recompi )e» 
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PROCEVURE ?GOTOXy{X f V: INTEGER); 
BEGIN 

If X < THEN X := 0; 

IF X>79 THEN X : = 79; 

IF V < THEN V := 0; 

IF V>23 THEN V := 23; 

wsu£e.{CHR[27) ,'V ,CHR[y+32) f CHR[X+32\ 
ENV; 

BEGIN (* Vummy main block *) 
ENV. 



k ThU routine. Ah.ou.ld wohk {ok. the. DEC VT-52*) 



PROGRAM PASCALSYSTEM* 

<* GOTOXY for SOROC IQ120*) 

PROCEDURE IG120XY<X> Y* INTEGER)? 

VAR P* PACKED ARRAY C0»,3J OF CHAR J 

BEGIN 

IF Y>23 THEN Y*=23? 

IF X>79 THEN X*=79? 

IF Y<0 THEN Y*=0? 

IF X<0 THEN X*=0* 

PC03*=CHR<27); 

PC13*='='i 

PC2J*=CHR<Y+32>? 

PC33s=CHR<X+32>? 

UNITWRITE<2>P,4>? 
ENDf 
BEGIN END* 
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* DUPLICATE DIRECTORY UTILITIES * * Section 4. 8 * 

Version I. 5 September 1978 

CQPYDUPDIR 

This program will copy the duplicate directory into the primary 
directory location. If the disk is not currently maintaining a current 
directory the program will tell you so. 

To use this program e(x)ecute 
CQPYDUPDIR. The program will ask for the drive in which the copy is to 
take place (4 or 5>. If no duplicate directory is found it will tell 
you after you indicate the drivs unit, If the duplicate is found then 
it will ask you if your sure you want to distroy the directory in 
blocks 2-5. A 'Y' will execute the copy any other character will abort 
the program. 

MARKDUPDIR 

This program will mark a disk that is currently not maintaining 
a duplicate directory so that it will. Caution must be exersiced to be 
sure that blocks 6-9 are free for use. If they are not one must re— 
arrainge the files as to make them free. One can tell if there 
available by getting an E)xtended listing in the Filer and checking to 
see where the first file starts. If the first file starts at block 6 or 
the first file starts at block 10 but there is a 4 block unused section 
at the tap* then the disk has not been marked. If however* the first 
file starts at block 10 and there is no unused blocks at the beginning 
of the directory then the disk has been marked. 

SYSTEM. PASCAL 31 30~Aug~78 6 Codefile 



OR 

<unused> 4 h 

SYSTEM. PASCAL 31 30~Aug-78 10 Codefile 



Both of the above cases indicate disks that have not been 
marked. Below is the directory of a properly marked disk. 

SYSTEM. PASCAL 31 30-Aug~78 10 Codefile 
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To execute this program e<X)ecute MARKDUPDIR. The program will 
ask you which unit contains the disk to be marked (4 or 5). The 
program will check to see if it thinks that the blocks 6-9 are free. If 
the program doesn't think so it will ask you if you are sure they are 
free ? Typing 'Y' will execute the mark* any other character will abort 
the program. Be sure that the space is free before marking it as a 
duplicate directory. 
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#*#4f^##ftfr*########4**HBHfr# *************** 

* P-CODE DISASSEMBLER * * Section 4. 9 * 

************************ *************** 

Version I. 5 September 1978 

The disassembler inputs a standard UCSD code file and outputs 
symbolic psuedo-assemb ly (P~-Code> along with various statistics 
concerning opcode frequency, procedure calis# and data segment 

references The disassembler was originally written to collect 
statistics on opcode frequency, etc. as an aid in making architecture 
improvements. It has since been found helpful in debugging 
interpreters/ optimising programs* and provides a source of further 
information regarding some of subtleties of our implementation of 
Pascal. All statistics gathered are "static" as opposed to "dynamic". 
In other words the statistics are collected by making a pass through 
the code file instead of collecting them wh ile the code file is 
actually running. 

4. 9. 1 DISASSEMBLY 

The Disassembler inputs a cods file that has been generated by 
the UCSD Pascal Compiler. If a program USES a UNIT the disassembly 
will include the UNIT only if the code file has been linked. Assembly 
routines linked into a Pascal host will never be included in the 

d isassemb ly.. 

The Disassembler is invoked by executing DISASM. 15 and requires 
the file OPCODES. 15 to be on the system disk. The Disassembler will 
first prompt for an input code file, the suffix .CODE being assumed and 
thus not required. The next question refers to the byte sex of the 
machine the code file is intended to run on* that is whether the first 
physical byte (byte 0) of a machine word is the most significant byte 
of the word. For more information* see section 3, 6 BYTE-SWAPPING. For 
both currently supported CPU's, the PDP-11 and the 8080 families, 
physical byte O is the least significant byte. Next the prompt will be 
for an output file for the disassembled output Since the output file 
is untyped* CONSOLE: or the PRINTER: (if it is on-line) may be used in 
preference fco an\} other file, The final question at this stage is 
whether the user wishes to take control of the disassembly* i.e. decide 
which procedures ar% disassembled as opposed to all the procedures in 
the file. 

The following question regards the collection of statistics on 
references to a particular Procedure's data segment. Should you 
decide to control the disassembly you will be warned that all 
statistics gathered ars only gathered on those procedures which are 
disassembled. Next you will be taken into the Segment Guide. This 
level displays the segments you have by name and lets you decide on 
which one you are interested in. The Procedure Guide follows to let 
you decide on the particular procedure(s) that you wish to 
disassemble. Typing an "L" at this point will list the procedure(s) 
contained in this segment A more complete description of this step 
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occurs in the next section. The Segment Guide may be re-entered by 
typing "Q" in the Procedure Guide. Thus in this manner you may 
disassemble several procedures in several different segments without 
disassembling the entire file. The Segment Guide is exited by typing 
"Q". 
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PROGRAM DISASMDEMG; 
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SAMPLE PROGRAM DISASSEMBLED 
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Figure 1 displays a sample Pascal program that has been listed 
during compilation. Figure 2 displays the disassembled code of the 
file generated by the compiler. The left 3 columns in figure 2 
correspond to the 3 columns to the right of the line number in figure 
1. They are segment number* procedure number* and offset within 
proc&duve: respectively. The offset is also given in hex in 
parentheses. A complete description of UCSD P-Code mneumonics is given 
in section 3.4. The actual code that exists in the file is given in 
hex in the rightmost column. The parameters to CXP's and CSP's ar& 
converted to the procedure name if it is a known system procedure or 
function. WRITESTRi WRITELN. and IOCHECK av& some examples. The 
string operand for LCA is printed as a string as evidenced by the line 
with offset 16. Jumps have their operand(s) converted to an offset 
from the start of the procedure so that the offset may act as a label. 
Thus the 8 displayed in the operand field of the FJP at offset 75 
really means a jump to the SLDO at offset 8. This is also true of case 
jumps <XJP's>. The block number and byte offset of the start of the 
procedure &r$ given relative? to the start of the code file. Thus this 
procedure starts at block 1, offset of the code file. The segment 
dictionary resides in block for all code files. 

4.9.2 DATA SEGMENT REFERENCE STATISTICS 

The fourth prompt the Disassembler provides is a question 
asking if you would like to keep track of all references to a 
particular procedure's data segment The most common use of these 
statistics is in optimization of a given procedure's code file. By 
re-arranging the order of declaration of variables one may change the 
offset within a data segment that applies to a given variable. For 
p— machine architecture reasons the first lh words offset into the data 
segment 3iV& the fastest and have optimized 1 byte instructions. Offsets 
from 17 to 127 result in instructions as least 2 bytes long* while 
references to greater than 127 require at least 3 bytes. By making the 
most frequently used variables have the smaller offsets one may save 
considerable code file space and possibly time during execution. 



Data Segment size: 45 Data references: 5 Lex level 

For segment DISAStiDE Procedure #1 

Offset (word) Total % 

3 3 60. 00 

4 2 40. 00 



FIGURE 3 SAMPLE PROGRAM'S DATA SEGMENT STATISTICS 
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Figure 3 shows the data segment statistics for our sample 
program. Clearly there is little to be gained from optimizing such a 
small program but the general idea can still be presented. By using 
the compiled listing shown in figure 1 one can match offsets to 
variables as such: 

variable offset 

I 3 

TOMORROW 4 

COMMENT 5 

Now by using the figures in figure 3 one can see that offset 3 
or the variable I occurs most frequently and thus deserves it's 
position. This same idea carried out on a large program may result in 
substancial size savings. Notice that offset 6 nevers occurs and thus 
is not included in the statistics in figure 3. 

The prompt for the output file for these statistics occurs 
after the disassembly has been completed. If you elect to collect 
these statistics you will be taken into the Segment and Procedure 
Guides as described in the previous section except that the prompt 
requests the selection of a data segment on which to collect 
statistics. In the Procedure Guide. "L" gives a listing of all the 
procedures in the selected segment by number* lex level* and data 
segment size. After the selection of a data segments processing 
continues* as described in the previous section, from the point after 
the data segment question. 

4. 9. 3 OPCODE, PROCEDURE CALL, AND JUMP STATISTICS 

These statistics ar& collected as ar\ aid in optimizing the 

architecture of P-Code and although they are interesting to look at 

they av& of no real use to the typical user. For this reason they will 
be described only superficially. 

Each opcode is given with a complete breakdown of which bit was 
most significant for each operand on any given occurrence of the 
opcode. These ar@ presented in terms of totals and percentages of the 
number of occurrences of the opcode. In addition a histogram of the 
opcode occurrence as a percentage of the total number of opcodes 
disassembled runs along the righthand margin. There is also a table of 
jumps in terms of the number of bits required to represent the distance 
of the jump for both positive and negative jumps. Finally there ave 
counts of all procedure calls listed by segment and procedure number. 
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The last prompt of the program is the file to which these 
statistics are to be dumped. 
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* LIBRARY MAP UTILITY * * Section 4. 10 * 



Version I. 5 



September 1978 



The program LIBMAP produces a map of a library (or code) file 
and lists the linker information maintained for each segment of the 
file. 

The program first prompts for a library file name. As in the 
linker* this may be an asterisk to indicate "*SYSTEM. LIBRARY". Unlike 
the linker, however* the ".CODE" suffix may be supressed by appending 
a period to the full file name. 

Ex amp le 



typing 



references file 



* 

FARKLE 

OLD. LIBRARY. 



*SYSTEM. LIBRARY 
: FARKLE. CODE 
: OLD. LIBRARY 



Typically* the map utility will be used to list library 
definitions but the option is available to include intra-library symbol 
references. Should this feature be desired* type a "Y" when queried 
for a reference list. A space (or carriage return) is considered a 
" H , " 

The user is now prompted for an output file name. (".TEXT" 

will be appended unless an extra period is used. ) Several libraries 

may be mapped at the same time. To q.uit* type a carriage return when 

prompted for any file name. 

A sample map follows 



LIBRARY HAP FOR ^SYSTEM. LIBRARY 



S # O: MOVETO separate procedure segment 

PSMATP public ref 

PSYPOS public ref 

MOVETO separate proc P #1 

PSXPOS public ref 

GHOVETO global addr P #1* I #0 

PSBUFP public ref 

JUNK private ref 

DRUJLIN global tb9 

PSYPOS puli lie ref (S 

LINETO separate proc 

PSXPOS public, ref (2 

GHOVETO global ref 

GLINETO global addr P #2* I #0 



times ) 
P #2 

times) 
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PTQC 


P #8 


proc 


P #9 


proc 


P #12 


value 


of i 


value 


of 2 


f 




f (7 


times ) 



DRAWLINE separate proc P #3 

DRWLIN global addr P #3, I #0 

PSMATP public ref <2 times) 

CONCAT separate proc P #4 

S # 1: PSQRAPHI library unit 

XROT constant value of 

MAXSTK constant value of 7 

MATSTK private ref (10 times) 

MO VETO external 

LINETO external 

CONCAT external 

YROT constant 

ZROT constant 

PSXPOS public ref 

PSMATP public 

PSYPGS public ref 

PSBUFP public ref (7 times) 

STKINX private ref (S times) 

BUF1 private ref (4 times) 

BUF2 private ref (2 times) 

S # 2. VPGRAPHI library unit 

NONE constant value of 

REVERSE constant value of 3 

SCREEN private ref (3 times) 

SC ALE p r i v a I <5 r e f ( F? t ,i m .« s ) 

XCENTER private rtsf (2 times) 

YCENTER private ref (2 times) 

XCURR pvivat^ ref <7 times) 

YCURR private ref (7 times) 

WHITE constant value of 5 

BLACK constant value of 6 

XH I VALUE private ref (4 times) 

YHIVALUE private ref (4 times) 

XLOVALUE private ref < 5 times) 

YLOVALUE private ref (5 times) 

DRAW constant value of i 

POINT constant value of 4 

ERASE constant value of 2 

DRAWLINE external proc P #3 

XSCREEN constant value of 320 

XSCALE private ref (3 times) 

X8HIFT private ref <2 times) 

YSCREEN constant value of 240 

YBCALE private ref (3 times) 

YSHIFT private ref (2 times) 

S # 3: TURTLE library unit 

NONE constant value of 

WHITE constant value of 1 

REVERSE constant value of 3 

HEADING private ref (15 times) 

WANTCURS private ref <13 times) 
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SCALE private ref (8 times) 

SCREEN private ref <3 times) 

XCENTER private ref <2 times) 

YCENTER private ref (2 times) 

XCURR private ref (6 times) 

YCURR private ref <6 times) 

TGFEN private ref (4 times) 

BLACK constant value of 2 

XH I VALUE private ref (4 times) 

YHIVALUE private ref <4 times) 

XLOVALUE private ref (5 times) 

YLOVALUE private ref <S times) 

XSCREEN constant value of 320 

XSCALE private ref (3 times) 

DRAWLINE external proc P #10 

X3HIFT private ref (2 times) 

YSCREEN constant value of 240 

YSCALE private ref (3 times) 

YSHIFT private ref <2 times) 

S # 4: to S #15: are unused 
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*********** ******************** 

* TABLE 1 * * EXECUTION ERRORS * 
*********** ******************** 

Version I. 5 September 1978 



System error FATAL 

1 Invalid index* value out of range (XINVNDX) 

2 No segment, bad code file (XNOPROC) 

3 Procedure not present at exit time (XNOEXIT) 

4 Stack overflow (XSTKOVR) 

5 Integer overflow (XINTQVR) 

6 Divide by zero (XDIVZER) 

7 Invalid memory reference <bus timed out> (XRADMEM) 

8 User break (XUBREAK) 

9 System I/O error (XSYIOER) FATAL 

10 User I/O error (XUIOERR) 

11 Unimp lamented instruction (XNOTIMP) 

12 Floating point math error (XFPIERR) 

13 String too long <XS2L0NG) 

14 Halt* Breakpoint (without debugger in core) <XHLTBPT) 

15 Bad Block 



All fatal errors either cause the system to rebootstrap* or if 
the error was totally lethal to the system* the user will have to 
reboot. All errors cause the system to re-initialize itself (call 
system procedure INITIALIZE). 
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•* TABLE 2 * * IORESULTS * 
Version I. 5 September 1978 



No error 

1 Bad Block/ Parity error <CRC> 

2 Bad Unit Number 

3 Bad Mode/ Illegal operation 

4 Undefined hardware error 

5 Lost unit* Unit is no longer on-line 

6 Lost file* File is no longer in directory 

7 Bad Title* Illegal file name 

8 No room, insufficient space 

9 No unit* No such volume on line 

10 No file. No such file on volume 

11 Duplicate file 

12 Not closed* attempt to open an open file 

13 Not open, attempt to access a closed file 

14 Bad format, error in reading real or integer 

15 Ring buffer overflow 
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* TABLE 3 * * UNITNUMBERS * 



'ersion : 


[. 5 September 1978 


NUMBER 


VOLUME NAME 





<!&fflpty> 


1 


CONSOLE 


2 


SYSTERM 


3 


GRAPHIC 


4 


f loppyO 


5 


f loppy 1 


6 


PRINTER 


7 


available - <unimplementedl> 


8 


REMOTE Reserved for f 


9 


block! 


10 


block2 


11 


blocks 


12 


block4 



Devices 9 - 12 are block-structured devicesi in most cases (RK-05). 
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DRAWL I NE: 
O 
i 
2 

3 



* TABLE 4 * * FEMSTATES * 
Version 1.5 September 1978 



PENUP (picture will not change) 
PENDOWN (force bits on) 
ERASER (force bits off) 
COMPLEMENT ( XOR bits) 
RADAR (scan for obstacle) 



DRAWBLOCK: 




3 



OR <paint source onto destination> 
COPY <sourcs goes to destination> 

COMPLEMENT Cinverted source goes to destination> 
EXCLUSIVE -OR <source exclusive-or destination goes 

to desination> 
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* TABLE 5 * * SYNTAX ERRORS IN UCSD PASCAL * 

Version I. 5 September 1978 

The syntax errors this compiler gives are not the best it can 
do. When time comes available to do so* the error generation of the 
compiler is going to be seriously re-vamped. 



1 
2 
3 
4 

K 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
1<9 
20 
21 

23 
24 



Error in simple type 
Identifier expected 
'PROGRAM' expected 
' ) ' expected 
' ; ' expected 
Illegal symbol 
Error in parameter list 
' OF ' expected 
' C ' expected 
Error in type 
'C ' expected 
' 3 ' expected 
'END' expected 
' # ' expected 
Integer expected 
'»' expected 
"BEGIN ' expected 
Ettkt in declaration part 
vrvsr in <f ield—1 ist> 
'. ' expected 
'*' expected 
'Interface* expected 
'Implementation' expected 
'Unit' expected 



50 
51 
52 
53 
54 
55 
56 
57 
58 
59 



Error in constant 

' : « ' expected 

'THEN' expected 

'UNTIL'' expected 

' DO ' expected 

'TO' or 'DOWNTO' expected in for statement 

'IF' expected 

'FILE' expected 

Error in <factor> <bad expression) 

Error in variable 



101 
102 
103 
104 
105 
106 
107 



Identifier declared twice 

Low bound exceeds high bound 

Identifier is not of the appropriate class 

Undeclared identifier 

sign not allowed 

Number expected 

Incompatible subrange types 
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108: File not allowed here 

109: Type must not be real 

110: <tagfield> type must be scalar or subrange 

111: Incompatible with <tagfield> part 

112: Index type must not be real 

113: Index type must be a scalar or a subrange 

114: Base type must not be real 

115: Base type must be a scalar or a subrange 

116: Error in type of standard procedure parameter 

117: Unsatisified forward reference 

118: Forward reference type identifier in variable declaration 

119: Re-specified params not OK for a forward d&clareti procedure 

120: Function result type must be scalar* subrange or pointer 

121: File value parameter not allowed 

122: A forward declared function's result type can't be re-specified 

123: Missing result type in function declaration 

124: F-format for reals only 

125: Error in type of standard procedure parameter 

126: Number of parameters does not agree with declaration 

127: Illegal parameter substitution 

128: Result type does not agree with declaration 

129: Type conflict of operands 

130: Expression is not of set type 

131: Tests on equality allowed only 

132: Strict inclusion not allowed 

133: File comparison not allowed 

134: Illegal type of operand(s) 

135: Type of operand must be boolean 

136: Set element type must be scalar or subrange 

137: Set element types must be compatible 

138: Type of variable is not arrai) 

139: Index type is not compatible with the declaration 

140: Type of variable is not record 

141: Type of variable must be file or pointer 

142: Illegal parameter solution 

143: Illegal type of loop control variable 

144: Illegal type of expression 

145: Type conflict 

146: Assignment of files not allowed 

147: Label type incompatible with selecting expression 

148: Subrange bounds must be scalar 

149: Index type must be integer 

150: Assignment to standard function is not allowed 

151: Assignment to formal function is not allowed 

152: No such field in this record 

153: Type error in read 

154: Actual parameter must be a variable 

155: Control variable cannot be formal or non-local 

156: Multidefined case label 

157: Too many cases in case statement 

158: No such variant in this record 

159: Real or string tagfields not allowed 

160: Previous declaration was not forward 



Page 258 



161: Again forward declared 

162: Parameter sis© must be constant 

163: Missing variant in declaration 

164: Substition of standard proc/func not allowed 

165: Multidefined label 

166: Multideclared label 

167: Undeclared label 

168: Undefined label 

169: Error in base set 

170: Value parameter expected 

171: Standard file was re-declared 

172: Undeclared external file 

174: Pascal function or procedure expected 

182: Nested units not allowed 

183: External declaration not allowed at this nesting level 

184: External declaration not allowed in inter-Face section 

185: Segment declaration not allowed in unit 

186: Labels not allowed in interface section 

187: Attempt to open library unsuccessful 

188: Unit not declared in previous uses declaration 

189: 'Uses' not allowed at this nesting level 

190: Unit net in library 

191: No private files 

192: 'Uses' must be in interface section 

193: Not enough room for this operation 

194: Comment must appear at top of program 

195: Unit not importable 

201: Error in real number - digit expected 

202: String constant must not exceed source line 

203: Integer constant exceeds range 

204: 8 or 9 in octal number 

250: Too many scopes of nested identifiers 

251: Too many nested procedures or functions 

252; Too many forward references of procedure entries 

253: Procedure too long 

254: Too many long constants in this procedure 

256: Too many external references 

257: Too many externals 

25S: Too many local files 

259. Expression too complicated 

300: Division by zero 

301: No case provided for this value 

302: Index expression out of bounds 

303: Value to be assinged is out of bounds 

304: Element expression out of range 

398: Implementation restriction 

399: Implementation restriction 
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400: Illegal character in text 

401: Unexpected end of input 

402: Error in writing code file* not enough room 

403: Error in reading include file 

404: Error in writing list file* not enough room 

405: Call not allowed in separate procedure 

406: Include file not legal 
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* TABLE 6 * * ASSEMBLER SYNTAX ERRORS * 



Version I. 5 September 1978 
This section lists all the general errors found in the ERRORS 
fil«i specific machine errors ar& found in the sections below 
dealing with machine specifics. 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

24 

27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 

40 
41 
42 
43 
44 
45 



to a label 



Un defined 1 a b e 1 

Operand out of range 

Must have procedure name 

Number of parameters expected 

Extra garbage on line 

Imput line over 80 characters 

Not enough ifs 

Must be declared in ASECT before use 

Identifier previously declared 

Improper format 

EQU expected 

Must EQU before use if not 

Macro identifier expected 

Word addressed machine 

Backward ORO not allowed 

Indentifier expected 

Constant expected 

Invalid structure 

Extra special symbol 

Branch too far 

Variable not PC relative 

Illegal macro parameter index 

Not enough macro parameters 

Operand not absolute 

Illegal use of special symbols 

Ill-formed expression 

Not enough operands 

Cannot handle this relative 

Constant overflow 

Illegal decimal constant 

Illegal octal constant 

Illegal binary constant 

Invalid key word 

Unexpected end of input - 

Include files must not be 

Unexpected end of input 

Bad place for an include file 

Only labels & comments may occupy 

Expected local label 

Local label stack overflow 

String constant must be on 

String constant exceeds 80 

Illegal us© of macro parameter 

No local labels in ASECT 

Expected key word 



after macro 
nested 



column one 



1 line 
chars 
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46: String expected 

47: Bad block, parity error (crc) 

48: Bad unit number 

49: Bad mode* illegal operation 

50: Undefined hardware error 

51: Lost unit# no longer on-line 

52: Lost file* no longer in directory 

53: Bad title* illegal file name 

54: No room* insufficient space 

55: No unit; no such volumn on-line 

56: No file/ no such file on volumn 

57: Duplicate file 

58: Not closed* attempt to open an open file 

59: Not open* attempt to access a closed file 

60: Bad format/ error in reading real or integer 

61 tioAtdd. macAo dd^lwitiom WLdqcdL 

61 »=» ok V" expected 

63 May not EQU to imd^lnzd labdU 
Z80 Based machines 

For constants* Hex is the default type* 

a 'B' defines binary ex. 10010B * 
a '. ' defines decimal ex. 5674. . 

Location Counter (LC> ~ $ 

All reserved words may not be used for any other purpose 
such as an identifier. For example* the reserved word H C" 
currently is being used as a register and in a condition 
code* therefore it may not be used for any other purpose 
(this is contrary to usual Zilcg assembly language/ but is 
restricted in the UCSD assembler). 

Specific error messages: 

76: Incorrect operand format 

77: Close paren " > " expected 

78: Comma "/"expected 

79: Pius "+" expected 

80: Open paren " ( " expected 

81: Stack pointer "5P" expected 

82: "ML" expected 

83: Illegal °CC" condition code 

84: Register "C" expected 

85: Register "R" expected 

86: Register "A" expected 



PDP11 Based machines 
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For constants* Octal is the default type for both input 

and output* 

a 'H' defines hexadecimal ex. 056H , 
a '. ' defines decimal ex. 546. * 
a 'B' defines binary ex. 1001B . 

Location Counter <LC> = * 

Specific error messages: 



76 
77 
78 
79 
80 
81 
82 
83 
84 



Closing paren *' ) " expected 

Register expected 

Too many special symbols 

Unrecognizable operand 

Register reference only 

First operand must be a register 

Comma expected 

Unimpl invented instruction 

Must branch backwards to label 
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* TABLE 7 * * American Standard Code for Information Interchange * 

Version 1.5 September 1978 



OOO 00 NUL 

1 001 01 SOH 

2 002 02 STX 

3 003 03 ETX 

4 004 04 EOT 

5 005 05 ENQ 

6 006 06 ACK 

7 007 07 BEL 

8 010 08 BS 

9 Oil 09 HT 

10 012 OA LF 

11 013 OB VT 

12 014 OC FF 

13 015 OD CR 

14 016 OE SO 

15 017 OF SI 

16 020 10 DLE 

17 021 11 BC1 

18 022 12 DC2 

19 023 13 DC3 

20 024 14 DC4 

21 025 15 NAK 

22 026 16 SYN 

23 027 17 ETB 

24 030 18 CAN 

25 031 19 EM 

26 032 1A SUB 

27 033 IB ESC 

28 034 1C FS 

29 035 ID GS 

30 036 IE RS 

31 037 IF US 



32 040 20 SP 

33 041 21 ! 

34 042 22 " 

35 043 23 # 

36 044 24 * 

37 045 25 X 

38 046 26 & 

39 047 27 ' 

40 050 28 < 

41 051 29 ) 

42 052 2A * 

43 053 2B + 

44 054 2C i 

45 055 2D - 

46 056 2E 

47 057 2F / 

48 060 30 O 

49 061 31 1 

50 062 32 2 

51 063 33 3 

52 064 34 4 

53 065 35 5 

54 066 36 6 

55 067 37 7 

56 070 38 8 

57 071 39 9 

58 072 3A 

59 073 3B ; 

60 074 3C -C 

61 075 3D « 

62 076 3E > 

63 077 3F ? 



64 100 40 @ 

65 101 41 A 

66 102 42 B 

67 103 43 C 

68 104 44 D 

69 105 45 E 

70 106 46 F 

71 107 47 G 

72 110 48 H 

73 111 49 I 

74 112 4A J 

75 113 4B K 

76 114 4C L 

77 115 4D M 

78 116 4E N 
89 117 4F O 

80 120 50 P 

81 121 51 Q 

82 122 52 R 

83 123 53 S 

84 124 54 T 

85 125 55 U 

86 126 56 V 

87 127 57 W 

88 130 58 X 

89 131 59 Y 

90 132 5A Z 

91 133 SB C 

92 134 5C \ 

93 135 5D 1 

94 136 5E ^ 

95 137 5F 



96 140 60 * 

97 141 61 a 

98 142 62 b 

99 143 63 c 

100 144 64 d 

101 145 65 e 

102 146 66 f 

103 147 67 g 

104 150 68 h 

105 151 69 i 

106 152 6 A j 

107 153 6B k 

108 154 6C 1 

109 155 6D m 

110 156 6E n 

111 157 6F o 

112 160 70 p 

113 161 71 q 

114 162 72 r 

115 163 73 s 

116 164 74 t 

117 165 75 u 

118 166 76 v 

119 167 77 ui 

120 170 78 x 

121 171 79 y 

122 172 7A z 

123 173 7B < 

124 174 7C \ 

125 175 7D > 

126 176 7E -n 

127 177 7F DEL 
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* TABLE 3 * * P-MACHINE OP-CODES * 
-ft********-** ********************** 







Version 


OOO 00 


SLDC 





1 001 01 


SLDC 


1 



I. 5 



September 1978 



126 


176 


7E 


SLDC 126 




















127 


177 


7F 


SLDC 127 




















128 


200 


80 


ABI 


171 


253 


AB 


SRO 


214 


326 


D6 


XIT 




129 


201 


81 


ABR 


172 


254 


AC 


XJP 


215 


327 


D7 


NOP 




130 


202 


82 


AD I 


173 


255 


AD 


RNP 


216 


330 


D8 


SLDL 


1 


131 


203 


83 


ADR 


174 


256 


AE 


CIP 


217 


331 


D9 


SLDL 


2 


132 


204 


84 


AND 


175 


257 


AF 


EQU 


218 


332 


DA 


SLDL 


3 


133 


205 


85 


DIF 


176 


260 


BO 


GEO 


219 


333 


DB 


SLDL 


4 


134 


206 


86 


DVI 


177 


261 


Bl 


GRT 


220 


334 


DC 


SLDL 


5 


135 


207 


87 


DVR 


178 


262 


B2 


LDA 


221 


335 


DD 


SLDL 


6 


136 


210 


88 


CHK 


179 


263 


B3 


LDC 


222 


336 


DE 


SLDL 


7 


137 


211 


89 


FLO 


180 


264 


B4 


LEQ 


223 


337 


DF 


SLDL 


8 


138 


212 


8A 


FLT 


181 


265 


B5 


LES 


224 


340 


EO 


SLDL 


9 


139 


213 


SB 


INN 


182 


266 


B6 


LOD 


225 


341 


El 


SLDL 


10 


140 


214 


8C 


INT 


183 


267 


B7 


NEQ 


226 


342 


E2 


SLDL 


11 


141 


215 


8D 


I OR 


184 


270 


BB 


STR 


227 


343 


E3 


SLDL 


12 


142 


216 


SE 


MOD 


185 


271 


B9 


UJP 


228 


344 


E4 


SLDL 


13 


143 


217 


8F 


MP I 


186 


272 


BA 


LDP 


229 


345 


E5 


SLDL 


14 


144 


220 


90 


MPR 


187 


273 


BB 


STP 


230 


346 


E6 


SLDL 


15 


145 


221 


91 


NO I 


188 


274 


BC 


LDM 


231 


347 


E7 


SLDL 


16 


146 


222 


92 


NGR 


189 


275 


BD 


STM 


232 


350 


E8 


SLDO 


1 


147 


223 


93 


NOT 


190 


276 


BE 


LDB 


233 


351 


E9 


SLDO 


2 


148 


224 


94 


SRS 


191 


277 


BF 


STB 


234 


352 


EA 


SLDO 


3 


149 


225 


95 


SB I 


192 


300 


CO 


IXP 


235 


353 


EB 


SLDO 


4 


150 


226 


96 


SBR 


193 


301 


CI 


RBP 


236 


354 


EC 


SLDO 


5 


151 


227 


97 


SOS 


194 


302 


C2 


CBP 


237 


355 


ED 


SLDO 


6 


152 


230 


98 


SGI 


195 


303 


C3 


EQU I 


238 


356 


EE 


SLDO 


7 


153 


231 


99 


SQR 


196 


304 


C4 


GEO I 


239 


357 


EF 


SLDO 


8 


154 


e£wc£ 


9A 


STO 


197 


305 


C5 


GRTI 


240 


360 


FO 


SLDO 


9 


155 


233 


9B 


IKS 


198 


306 


C6 


LLA 


241 


361 


Fl 


SLDO 


10 


156 


234 


9C 


UNI 


199 


307 


C7 


LDC I 


242 


362 


F2 


SLDO 


11 


157 


235 


9D 


S2P 


200 


310 


C8 


LEQ I 


243 


363 


F3 


SLDO 


12 


158 


236 


9E 


CSP 


201 


W X JL 


C9 


LES I 


244 


364 


F4 


SLDO 


13 


159 


237 


9F 


LDCN 


202 


312 


CA 


LDL 


245 


365 


F5 


SLDO 


14 


160 


240 


AO 


ADJ 


203 


313 


CB 


NEQ I 


246 


366 


F6 


SLDO 


15 


161 


241 


Al 


FJP 


204 


314 


CC 


STL 


247 


367 


F7 


SLDO 


16 


162 


242 


A2 


INC 


205 


315 


CD 


CXP 


248 


370 


F8 


SIND 





163 


243 


A3 


IND 


206 


316 


CE 


CLP 


249 


371 


F9 


SIND 


1 


164 


244 


A4 


IXA 


207 


317 


CF 


CGP 


250 


372 


FA 


SIND 


2 


165 


245 


AS 


LAO 


208 


320 


DO 


SIP 


251 


373 


FB 


SIND 


3 


166 


246 


A6 


LCA 


209 


321 


Dl 


IXB 


252 


374 


FC 


SIND 


4 


167 


247 


A 7 


LDO 


210 


w&d. 


D2 


BYT 


253 


375 


FD 


SIND 


5 


168 


250 


AS 


MOV 


211 


323 


03 


EFJ 


254 


376 


FE 


SIND 


6 


169 


251 


A9 


MVB 


212 


324 


D4 


NFJ 


255 


377 


FF 


SIND 


7 


170 


252 


AA 


SAS 


213 


325 


D5 


BPT 
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<L dent If ter> 




letter 






<unsvflned inieaer> 



T 



V, •- 










<unp I cjne d numbe r > 






un:? I dried Integer 






__._ j 



-fr 



f V ! 






^ — -*' £ ) 4- -••■- f— -H unsigned Integer p 






•ZfcSfc 



<vConsT>am„> 



■ < " 4 



> 




rK/^j) ( — * constant identifier 




\ 



A unsigned nunber 



j 



o 




character 




o 



r. — — > 



J 



<sinp\e type> 



w 



type identifier 



<£> 



identifier 



V^y 



<7>- 



7~ 



_y^) H 




constant 



— „ .„^.^— _— < 



'"*(v) — ~ H constant J- 



_J 



7^fiB 



<typs> 




:s?inp\e type 



r 



"-aj^ 



yKt\™H type identifier p 



an 



ARRAY 







•-*j s i np \ e i-vjp e 



-j 



— ~_ 






~*( 3 /-^■'{QFHivjpeH 







X 



-3*( SET r~ 



\ 






frjsinple type 



k. 



uRD f 



v__ _y 



./*•■■ 



•*Pie\d Usth 




END 






V^V 

~\i/ 




TEXT 






-T 



K. 



INTERACTIVE 



s 






._^ 
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* MATERIALS AVAILABLE * * Section A. 1 * 

As the UCSD Pascal system has grown* uie have found that to 
distribute all of the software which is useful to all users for all 
systems, has become an unbearable task. To attempt to alleviate the 
large number of diskettes the release software requires* and to 
alleviate the number of pages of documentation sent to each subscriber* 
we have started to split the system into a number of seperately 
available sections. 

The major section is the section which contains the operating 
system and all the support routines that go with it. We include a 
number of useful utilities which should enable the subscriber to do all 
types of developmental work. The master release (as from herein it 
shall be named) contains the interpreter for the initial system 
Qvdere6i the UCSD Pascal operating system* the Pascal compiler* two 
text editors (one for screen devices* one for general purpose)* a 
BASIC compiler* the Linker* the Assembler for the appropriate machine 
(at least). Other utilities include: a generalized file utility (the 
File handler)* a generalize patch and dump routine* a set of programs 
to enable the subscriber to configure the system to run most 
intelligently with any terminal* a desk calculator* and a librarian. 

Software which is not included in the master release is 
generally available from the IIS as a supplemental package at a nominal 
handling charge (dependent on the amount of material involved with the 
package). The sorts of software available are: interpreters for 
machines other than the machine the master release was ordered for* 
which will be accompanied by the assembler for that machine* in some 
cases we have assemblers for machines for which we do not yet have 
interpreters* program and data management systems* specifically a cross- 
referencer* and a pretty-printer. Also available* although not until 
some indeterminite time after the I. 5 release* a Computer Aided 
Instruction packet. This may be available through the IIS* however it 
may be available only through the University of California Extension 
Studies Office. The CAI package consists of knowledge quizzes* and 
programming quizzes* and a record keeping system* all based on Kenneth 
L. Bowles book: (Micro) Computer Problem Solving Using Pascal . 
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* THE FIRST TIME THROUGH * * Section A. 2. 1 * 

Version I. 5 September 1978 

Welcome to UCSD PASCAL. If you put the disk labelled "PASCAL:" 
in your booting drive, went through your normal boot-strapping 
procedure, and were greeted in a similar fashion* you do not need to 
TBa6 this section. 

If this is not the case then here are a few of the problems we 
have encountered with I. 4 coming up in strange and foreign lands: 

i. > Some revisions of the LSI-11 refuse to boot with the clock 
running If you have a switchable clock* turn it off to 
bootstrap* if and when the system greets you with the welcome 
message and the date* turn the clock back on. 

2. > You have Andromeda floppy-disk drives. Currently you will be 

able to use only drive #0 unless the other drives have disks in 
them at bootstrap time. Drives that do not meet this condition 
will appear permanently off-line 

3. > You do not have enough memory. The minimum requirement for 

memory is 24K 16— bit words, 

4. > You have a system configured for RK-05 hard-disk and you have 

an unformatted disk on line. The system will hang waiting for 
a reply from the disk which cannot be generated if the disk is 
unformatted Take the disk off-line and try again. 

5. > You have a system configured for RK and RX and the RX is not 

present. RX must be present. 

6 ) We haven't encountered your problem before. Gall. 

The number listed on the front page of this document. 
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* 8O8O/Z8O WITH CP/M & 3740 DISKS * * Section A. 2. 2 * 

Version I. 5 September 1978 

THE CP/M IMPLEMENTATION OF UCSD PASCAL 

BOOTING PASCAL 

To get Pascal running under your version of CP/M* a two-disk 
bootstrap is used. First, boot CP/M in the usual manner. On the CP/M 
disk distributed with the Pascal system is a file called PASCAL.COM. 
PIP this file over to the booted disk/ then execute it. 

When the program asks for a Pascal disk/ put the disk labeled 
PASCAL: in drive A and any disk in drive B. The system may not boot if 
there is no disk in drive B> or if you have a l~drive system and your 
CP/M drivers wait on a request to drive B. Then hit CreturnH. In 
about 15 seconds the Pascal welcoming message should appear. (Note: we 
have discovered that some drives* possibly as a result of being double- 
buffered* cannot keep up with a 2 to 1 interleaving and hence are 
extremely slow. The bootstrap then may take about 30 or 40 seconds. 
We intend to alleviate this problem in the next release/ but persons 
with such drives will have to bear with slow disk accesses for the 
present. ) 

If all has gone well/ Welcome to the Wonderful World of Pascal. 
If not/ please call to notify us of your problem. 

MODIFICATIONS TO CP/M 

The Pascal system will operate under an unmodified CP/M system/ 
but it is advisable to create a special CP/M for use with Pascal in 
order to have Pascal running in the environment for which it was 
designed. 

1. If there is no disk in a drive and an access is made from 
that disk* the driver should not wait to perform that access until a 
disk is inserted* as the Pascal system often attempts to read from 
empty drives when searching for a particular disk. Instead/ simply 
return a 1 to indicate a bad I/O operation. 

2. If you have a keyboard interrupt handler/ it should 
recognize the character Ccntrl~f3 as a "flush-output" toggle and signal 
the character-out routine to gobble any characters until signaled 
again. When it receives another Ccntrl~f3 the keyboard handler should 
signal the output handler causing the output handler to resume 
outputting characters sent to it. 
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The keyboard interrupt handler should also recognize the 
character Ccntrl- s3 as a "stop output" toggle and wait until it 
receives another Ccntrl-s3 before allowing program execution to 
continue. 

If your keyboard has no alphalock, the input driver can use any 
character not used for some other purpose as an alphalock toggle. 
CCntrl~p3, Ereturn3, Ccntrl~i3, Ccntrl--s3, tcntrl~f3, tcntrl-c3 or any 
character in SYSCQM^. CRT INFO should be excluded from consideration. We 
suggest Ccntrl~a3. 

Pascal expects the tab character <Ccntrl~i3> to cause the 
terminal cursor to advance to the nearest eight column. If the 
terminal does not do this itself, then the driver in the BIOS should. 



CREATING A BOOTSTRAP ON A PASCAL DISK 

Note: These instructions are for a standard BIOS with 512-byte 
blocks. For instructions for a non-standard BIOS, reference file 
READ. ME on the CP/!i disk in the distribution packet. 

On the CP/M disk are two programs, PQEN.COM and PINIT. ASM. The 
program PGEN.COM is a program used to write out a buffer (which will be 
filled by boot code and BIOS) to track O. PINIT. ASM is the boot code 
that reads SYSTEM, MICRO from a Pascal disk, loads the BIOS into the 
correct place, and starts the interpreter's boot routine. 

You must create a file PBOOT. HEX, which will require a slight 
modification of your current BOOT program. PBOOT will reside on track 
O, sector 1 and, when executed* will load track O, sectors 2 thru 13 
into memory starting at location < MSI ZE-48)* 1024 + OBAOOH, and jump to 
that location. 



system. 



You then need to edit PINIT. ASM, changing MSIZE to match your 
Assemble the file, creating PINIT. HEX. 



The next step is to stitch together the one-sector boot/ the 
Pascal interpreter loader, BIOS, and the program to write this 
information out to sector O. The following is a session with DDT that 
performs all this. This session was used to create a 48K system. User 
input is in lowercase, and comments are off to the right. 



A>ddt pgen. com 



DDT VERS i. 3 
NEXT PC 
0400 0100 



load PGEN. COM into memory. PBOOT, PINIT, 
and BIOS will be overlayed into PGEN's 
data area* after which a memory image will 
be saved. 
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~-ipboot48. hex 
-h900 O 

0900 0900 
~r900 
NEXT PC 
0980 OOOO 

~ipinit48. hex 
-h9S0 BAOO 



C380 4F80 
~r4f80 
NEXT PC 
0A7d BAOO 

~ibios48. hex 
-hd80 beOO 
C380 4F80 
~r4f80 
NEXT PC 
0F76 0000 
-tcntrl-cl 

A>save 16 pgen48. com 



set PB0QT48. HEX as input file 
PBOOT starts at location 0* and uie want to 
read it in at location 900H 

read in PBOOT 



set 'PINIT48. HEX' as input file 

PINIT starts at location BAOOH in a 48K system 

<in general < MS I ZE -48)* 1024 + BAOOH)/ and we 

want it at location 980H 

read it in 



and lastly read BIOS into location D80H 



; leave DDT. . . 

i ... and save the program. 



A>pgen48 

PGEN VI. 

PUT BOOTER?<Y/N)y 

WRITING BOOTER TO DRIVE A, TYPE RETURN 



AGAIN? <Y/N)n 

GET BOOTER? (Y/N)n 

REBOOTING CP/M, TYPE RETURN 



; sample execution of the program.. 



put a Pascal disk (preferably a 
copy of the master) in drive A 
before hitting Creturnl. 



i put the CP/M disk back in drive A 
-, before hitting Creturnl. 
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* DIFFERENCES AMONG IMPLEMENTATIONS * * Section A. 3 * 

*********** *#*****#****#**********#*# #$********#**#* 

Version I. 5 September 1978 

The following is a list of differences between PDP11 Pascal and 
S080/ZS0 Pascal* the items describe the way it is on the 
3080/Z80, and how that differs from the documented system. 

1. The definition of div is different (thereby changing the values 

returned by mod ) : 

a d iv b - floor(a/b) 

a mod b = a - b * ( a div b ) 

2. The I/O drivers are all written for synchronous operation. This 

means that CbreakH has no effect. CCntrl~s3 and Ccntrl~f3 will 
not perform as described unless you have a keyboard interrupt 
handler* and this handler is modified as specified below in 
fjQdi.fi cations to CPU. 

This also means that UNITBUSY, UNITCLEAR, and UNITWAIT are 

meaningless. (In the future it may be possible to use the 
UNITBUSY and UNITCLEAR operations on the keyboard* but this is 
currently infeasible. ) 

3. The interpreter is called SYSTEM. MICRO instead of SYSTEM. INTERP. 

4. The CP/M implementations have bootstraps that are not accessible to 

Pascal* hence the program 800TER. CODE will not work. See the 
appropriate section of this document for instructions on 
copying and/or creating a bootstrap. 

5. There are no turtle graphics procedures in the interpreter. Users 

with bit-mapped graphics devices are advised to see section 3. 1 
of the documentation for a Pascal version of DRAWLINE. 

6. There are no long integer functions available with the Z8Q/8080 

system. They will be available in later releases. 
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* CHANGES MADE IN RECENT RELEASES * * Section A. 4 * 
Version I. 5 September 1978 
SUMMARY OF DIFFERENCES BETWEEN UCSD PASCAL RELEASES 1.4 AND I. 5 



The following additions* improvements and/or corrections apply 
to Version I. 5. Reference the (section #) preceding each entry for a 
more detailed description. For information regarding differences be- 
tween previous releases refer to the system documentation for those 
releases. 



(1. l> 

OPERATING SYSTEM 



( ) £11 fields of SYSCOM (system communication area) that 

can be set in the utility SETUP are initialized at 
boot time using *SYSTEM. MISCINFO (if present). 

(2.1.1) The bug in the string intrinsic POS has been fixed. 

(1.1) C(ompile will now prompt the user for the file to 
compile if the workfile is empty. 

<1„B> There now exists a new command called L(ink at the 
command level of the system that directly invokes 
the new util ity *SYSTEM. LINKER. 

(1.9) There now exists a new command called A(ssem at the 
command level of the system that directly invokes 
the new assembler. 

(1.1) If a file SYSTEM. STARTUP exists on a given disk, that 
file will be run as a user program at initialize time. 

(1.1) R(un directly invokes *SYSTEM. LINKER if it is 
needed by the user program. It assume use of 
*SYSTEM. LIBRARY for external linkage. 

(1. 1) XCetute will not run code files which need to be 
L(inked. An error message will appear. 

(1.2) The file handler is now a separate file called 
#SYSTEM. FILER. 
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Backspacing arid -Cdel> are now allowed when reading integers 
from Unit #1 (CONSOLE: ). Howevar, backspacing over the sign* 
if any/ is not permitted. 



(1. 2) FILE HANDLER 



Substantial modifications have been made in the syntax of user 
responses to filer prompts. For nearly ail commands there exists the 
option of using either, of two wildcard symbols enabling extended 
control over activity within the filar.- In general, the symbol ,, ~ n 
will allow selective control over files within the L(dir> GChange* 
R(emove» &nd Kransfer commands. The "?*' symbol is similar to " = " with 
the addition that it ^ i 1 1 cause the filer to prompt the user for each 
task to be performed. 

Q(et command now allows use of appended "'.'TEXT" and 

".CODE" suffixes in file names and ignores them. 

5(ave command will now allow the current workfile to 

be saved or. a disk other than the system volume, 

E( av.d Ltdir now r&Quirg an appended " : " after literal 
volume I. D. 's. Selective listing of directory subsets 
is allowed through use o P the wildcard symbol = in can- 
junction with file prefix anti suffix string patterns. 
Directory listings may be sent to a volume other than 
CONSOLE: by following the source volume name with 
' s <volume id>'. 

C Change command will now allow the user to change 
selected file prefix and suffix string patterns within 
groups of filenames containing the chosen patterns 
through use of the wildcard symbols ~ or ?. 

R(emove command allows selective removal of groups of 
files using the ~ or ? symbol in a manner similar to the 
CChange command. To selectively remove any or all of 
the. files on a given volume the user may type 
■Cvo'l.' prof i x> ' : ' and "will he prompted for each file on 
the disk Typing R(emove) <vol prefix> now will result in 
no action. R<emove? Cvo 1 prefix> = will remove ALL files 
on the disk. All commands resulting in the potential 
removal of more than one file will prompt the user with 
"Update directory?" following "removal" of file names. 

T(ransfer command functions in a manner similar to 
the C(hange command. When performing a disk to disk 
transfer using one drive it will now ask for the 
the file name to be transferred to before the source 

disk is removed. It is now possible to selectively 
transfer any or bII of the files on a disk by typing 
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•Cvoi. pref ix> fallowed by u ?" or " = " in a manner simi- 
lar to the R(emove command. The user will be prompted 
for each file and is given the option of transferring. 

ZCero command will now prompt the user with the present 
number of blocks allocated the the disk in the directory* 
if a valid number exists; and will ask if the same number 
of blocks is wanted. If the response is No (or there was 
no previous H # of blocks") then the user may enter the 
appropriate number of blocks. The ZCero will be aborted 
if a bad # of blocks is specified. 

N(ew command will now check for a ".BACK" file corresponding 
to the current workfile and will ask if the user wishes 
this file to be removed. (This is for use in conjunction 
with the new L. 2 (large file) EDITOR. 

The new command ? will result in display of the prompt- 
line extension: 

Filer: B (ad -b Iks* E(xt~dir* K( rune h* MCake* P(ref i x* V(olume* X( amine* Z(ero 

Typing any non-command key will redisplay main promptline. 

EDITORS (Sections 1. 3 and 1. 4) 

Three different editors are currently provided with the UCSD 
PASCAL system: YALOE* "EDITOR" (E. 6) , and the new L. 2 EDITOR. EDITOR is a 
substantially more powerful (and even easier to use) editor than YALOE* 
but it makes some assumptions about the run-time environment. 
The L. 2 EDITOR (eventually to become the standard release editor) will 
handle files of arbitrary size* however it is in its experimental form 
and recommended for brave users only. 

EDITOR requires a reasonably powerful CRT terminal with the following 
features: 



XYADRESSING 
NDFS 

LF 

RLF 



go directly to a given row and column on the screen 

non-destructive forward space (the inverse of back- 
space) 

down one line (and if at the bottom of the screen 
scrolls up) 

reverse line feed (up one line* not required to 
reverse scroll) 
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(EDITOR no longer requires Erase~to~end-of-screen# 
Era»e~to~-end~af-line* or Home facilities. ) 

Typing "E" at the main command level will execute the file 
SYSTEM. EDITOR. Selection of either YALOE or EDITORCE. 6 or L. 2) as 
the system editor is made in the Filer by C(hanging the selected file's 
name to SYSTEM. EDITOR. 

Proper use of EDITOR requires that the system disk be left 
on-line while editing. 

The E. 6 EDITOR has the following differences from the previously 
released E. 4 EDITOR: 

(1,3.3) The C(opy command now requires the user to specify whether 
the copy is to be made from the B(uffer ( as in the old 
C(opy command > or from another FCile. Copying from a file 
alloys the option of copying subsets of the file by speci- 
fying markers. 

(1.3.3) A(djust now enables LCeft and RCight justification as well 
as Centering of text lines. 

< „, ) Automatic date-stamping of files. The first date the file 

was created and the last date that it was updated are dis- 
played in the Environment. 

The following is a brief summary of the differences between 

the E. 6 editor and the L. 2 (large file) editor (for more information 
see section 1. 3 5); 

(1.3.5) The L. 2 EDITOR does not write to SYSTEM. WRK TEXT unless 
a new workfile has been created. Instead/ upon entering 
the editor the file to be reaii from is renamed with 
a .BACK suffix and a workfile is created with the 
old file's name. 

(1.3.5) New commands to be used in conjunction with large file 
capability are BCanish L(eft or R(ight* and N(ext- BCack 
or F<orward or Svtart or E(nd, 

<i.3. 5) F(ind snd R(©place will prompt user if target not found 
and the file extends beyond the editor buf f er ( i. e. * if it 

is s "large file"). 

(1.3.5) Changes within Environment: 

Ability to set tab stops, 

Lists names of markers. 

Lists number of pages in Left and Right 

stacks of large files, in buffer and 
number of pages available on disk. 
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(1. 3) 
DEBUGGER 



(1.5) The debugger now works as claimed in the system documentation. 



PASCAL COMPILER 



(2.2) Lowercase characters are now allowed within all 

identifiers and reserved words* but are converted to 
upper case( i. e. > Hello is equivalent to hElLO). The break 
character '_' is also allowed (anywhere a digit is 
allowed in an identifier) and is ignored. 

(3.3.3) There now exists the facility for using "Long Integers" for 
business applications. The standard type INTEGER has been 
extended and the standard arithmetic operators +i -, *, DIV* 
and unary plus and minus are allowed for use with long 
integers (as well as the TRUNC and STR intrinsics). 

(3,3,2) A substantial new addition to capabilities of programming 
in UCSD PASCAL is the facility for linkage to separately 
compiled "UNIT'S" and external assembly language routines. 
A UNIT is a library module which may be imported for use 
by PASCAL programs. It incorporates the use of public and 
private declarations and definitions. The introduction of 
UNITS to UCSD PASCAL introduces new syntax for the language 
including the new reserved words: 

UNIT 

INTERFACE 

IMPLEMENTATION 
and USES. 

(3.3.2) PASCAL programs may now access external assembly language 
routines through the use of an EXTERNAL declaration which 

resembles the FORWARD declaration. 



1, 



INKER 



SYSTEM. LINKER is a new system utility made available to allow 
the linkage of separately compiled PASCAL UNITS as well as access in 
PASCAL to. assembly language routines, and linkage from assembly language 
to assembly language. 



(4. 2) 



LIBRARIES 



The file SYSTEM. LIBRARY is available for use in conjunction 
with SYSTEM. LINKER. The old LINKER. CODE has been replaced by LIBRARY. CODE 
which allows the user to build libraries containing utility routines. 
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(2. i. i) 

INTRINSICS 

The procedure STR has been added and is used to convert integers 
or long integers to their character string representation. 

UTILITY PROGRAMS 

Several new UTILITY PROGRAMS have been added. Reference 
also the TABLE OF CONTENTS and the UTILITY DOCUMENT (Sect ion 4). 

<4. 3) NEW SETUP. 

(4. 5) REVISED PATCH. 

(4.8) COPYDUPDIR. 
(4. 8) MARKDUPDIR. 

(1.9) ASSEMBLERS. (LSI-11, 8080, Z80) 
(4. 9) DISASSEMBLER. 
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* INDEX * * Section B * 
Version I. 5 September 1978 



ARRAY, 117 

ASSEMBLER, 4, 99, 100/ 114, 284 

BAD BLOCK SCAN, 26 

BANISH* 55 

BLOCK, 117 

BLOCKNUIiBER, 117 

BLOCKREAD, 124, 140, 156 

BLQCKWRITE, 124, 140, 156 

BOOTSTRAP, 45, 227 

BREAKPOINT, 77 

CASE STATEMENTS, 135 

CHANGE, IS 

CHARACTER, 117 

CLOSE, 124, 149, 156 

COMPILED LISTING, 84 

COMPILER, 3, 31, 283 

CONCAT, 119, 157 

CONDITIONAL ASSEMBLY, 111 

CONTROL CHARACTERS, 59 

COPY, 51 1 120 

CP/M, 5, 273 

CRAWL, 72 

CURSOR, 31, 36, 62 

DATE, 25 

DEBUGGER, 4, 71, 82, 293 

DELETE, 34, 39, 40, 31, 52, 120, 157 

DESTINATION, 117 

DIRECTIVES, 105 

DIRECTORY, 16, 18, 284 

DISK ERROR, 26 

DISK SIZE, 29 

DISK SPACE, 27 

DLE, 163 

DRAWBLOCK. 129, 157 

OR AWL I NE, 129, 157. 139 

EDITOR, 3, 31, 281 

EOF, 125, 138, 141 

EOLN, 125, 130, 141, 148 

EXAMINE, 26, 72, 74 

EXECUTE, 4 

EXTT, 142, 157 

EXPRESSION, 117 

EXTENDED LIST, 10 

EXTERNAL, 95, 102, 173 

FILE, 123, 125, 148 

FILEID, 117 

FILENAMES, 7, 11, 31 

FILER, 2. 3, 7, 2S0 
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FILES, 139 

FILLCHAR, 132/ 146, 157 

FIND, 42, 43, 51 

FORWARD, 173 

FUNCTION, 107 

GENERAL ERRORS, 261 

GET, 13, 125 

GOTO, 82, 142 

GOTOXY, 133, 157, 222, 235, 281 

GRAPHICS, 129, 159 

HALT, 133, 157 

HEAP, 136 

IDSEARCH, 157 

IMPLEMENTATION, 167 

INCLUDE, 83, 100, 115 

INDENTATION CODE, 163 

INDEX, 117 

INITIALIZE DISKS, 28 

INPUT, 138, 149 

INSERT, 33, 37, 52, 120, 157 

INTERACTIVE, 148 

INTERFACE, 167 

INTRINSICS, 156 

IO-ERROR, 125, 249, 251 
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I. INTRODUCTION 

The programming language Pascal was designed to encourage the use of modern 
structured, modular programming techniques among computer science students, but 
has nevertheless become popular in professional environments as well. Both this 
ADDENDUM and its parent document, the NORTH STAR PASCAL SYSTEM REFERENCE MANUAL, 
assume that the reader is familiar with the Pascal language itself, and so 
concentrate on the particular use and operation of the North Star Pascal system 
in preparing and executing programs. For those who need to learn more about 
programming in Pascal, a bibliography of suggested references is included at the 
end of this ADDENDUM. 

North Star Pascal, Version 1, is an implementation of the UCSD Pascal (TM) 
Version I.5F software system, as configured for operation on the HORIZON 
computer or other 8080 and Z80 microcomputer systems equipped with North Star*s 
MICRO DISK SYSTEM (MDS). The software system was created at the Institute for 
Information Systems, University of California, San Diego. 

Version 1 is essentially the complete UCSD Pascal (TM) system, containing 
all tools necessary for program development using the Pascal language: a text 
editor, Pascal compiler, object code linker, 8080 and Z80 assemblers to 
facilitate the interface of machine-code routines to Pascal code, and several 
utilities. The system operates independently of North Star's DOS, and includes 
its own file- handling and disk-management functions. However, it contains minor 
changes from the standard UCSD system, designed to make operation more 
convenient when 5-1/4" floppy disks are used for mass-storage of programs and 
data. This ADDENDUM discusses the relevant changes and their effects on system 
operation as described in the SYSTEM REFERENCE MANUAL. Also discussed in this 
ADDENDUM are the procedures necessary for interfacing North Star Pascal to an 
arbitrary input/output configuration, and suggested program development 
strategies for single-density and double-density systems. 

HARDWARE REQUIREMENTS 

In order to run the North Star Pascal system, your computer must meet the 
following standards: 

1. Its CPU must be one of the "8080 family" of processors, which includes 
the 8080, Z80, and 8085. 

2. It must be a HORIZON computer or be equipped with a single-density, 
double-density, or quad-capacity North Star MDS Micro Disk System. The single- 
density version of the Pascal system, PASCAL-S, supports up to three disk 
drives, and the double-density/quad-capacity version, PASCAL-DQ, supports a 
maximum of four. Note that program development under the single-density version 
of North Star Pascal requires at least two disk drives on-line. Using the DQ 
version, program development may be pursued with only one drive on-line, but 
dual-drive operation is far more convenient. PASCAL-S works only with North 
Star f s first, single-density-only disk controller. PASCAL-DQ does not read or 
write single-density disk information, and will work only with the newer (dual 
density) controller. 
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3. The bootstrap PROM on the North Star MDS Controller Board must be 
located at E800H in memory. (For single-density controllers only, the PROM must 
be configured to load the North Star DOS into RAM starting at 2000H. ) 

4. Program development using the Pascal compiler requires at least 48K 
contiguous RAM, and 56K is recommended because the compiler will run faster, 
larger assembly- language programs may be assembled and linked together, etc. 
Once compiled, applications programs may run in as little as 20K of RAM, 
depending upon their individual storage requirements. 

Before reading further in this ADDENDUM, read the entire NORTH STAR PASCAL 
SYSTEM REFERENCE MANUAL at least once to familiarize yourself with general 
system features and concepts. Return to the ADDENDUM for detailed information 
about system configuration and operation in the North Star environment. 

*** OWNERS OF PREVIOUS NORTH STAR PASCAL RELEASES, PLEASE NOTE: *** 

This ADDENDUM describes North Star Pascal Version 1 , Release 2.. Owners of 
Release J_ should be aware that the User I/O area jump table has been modified in 
a small, but significant way to accommodate quad capacity drives. Please see 
sections II. B. 2. b and II.B.2.C for further details. User I/O areas from older 
releases will require slight modification before interfacing to Pascal Version 
1 , Release 2. 

Every effort has been made to insure that the information presented here is 
accurate and complete at press time. If you find any errors or omissions, 
please notify North Star in writing at the following address: 

NORTH STAR COMPUTERS 
ATTN PASCAL PRODUCT ENGINEER 
2547 NINTH STREET 
BERKELEY CA 94710 



NOTE: "UCSD Pascal" is a trademark of the Regents of the University of 
California, San Diego Campus. 
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II. THE PRIMARY DISKETTE(S) 

A. Introduction 

The North Star Pascal program development system consists of two parts, 
the PRIMARY diskette(s) and the AUXILIARY diskette. The PRIMARY set contains 
all the software necessary to permit program development using Pascal, 
including the system bootstrap program. The AUXILIARY diskette includes the 
two assemblers and several utilities intended for use by advanced programmers. 

This section describes the PRIMARY diskette set. In PASCAL-S, primary 
system software is divided between two 5-1/4" single-density floppy diskettes, 
named PASNS: and COMP:. All primary system software for PASCAL-DQ fits on one 
double-density diskette, PASNS:. 

1. The Bootstrap Diskette, PASNS: 

The BOOTSTRAP diskette for either PASCAL-S or PASCAL-DQ is marked 

PASNS: 

This diskette contains the operating system software and other programs 
which will be described shortly. The bootstrap diskette must always be 
inserted in drive #1 (this corresponds to "device #4" in the Pascal system's 
terminology) whenever you "bring-up" the system. (This goes for both 
single-density and DQ systems!) Sometimes, you may have occasion to remove 
the bootstrap diskette from the device #4 drive during the execution of 
certain programs or system functions. Under normal operating conditions, 
the system will remind you to re-insert the bootstrap diskette after the 
program or function is done. You will see the following words on your 
terminal : 

PUT IN PASNS: 

The device #4 drive will turn on, and the message will be repeated until the 
appropriate diskette has been inserted and the drive door closed. Do not be 
afraid of re-inserting the bootstrap diskette while the device #4 drive is 
operating, as it will not harm the diskette. 

The bootstrap diskette contains the following software files: 

SYSTEM. NSTAR2 
SYSTEM. NSTARO 

These are the "p-machine simulator" programs, and are the heart of the 
North Star Pascal system. All Pascal programs are compiled into "p-code" 
which is a machine code for a pseudo-microprocessor that is ideal for 
executing Pascal programs. In order for this code to run on typical 
microprocessors, a program which SIMULATES the "p-machine" must be written 
for and executed on the computer. This program makes the processor on which 
it runs appear to be the ideal p-machine. All system software in the Pascal 
system, with the exception of the p-maehine simulator itself and low-level 
I/O drivers, is in the form of p-code, so one of the simulators must always 
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be running when you use the system. SYSTEM. NSTAR2 expects system RAM to 
begin at 2000K, and loads there, while SYSTEM. NSTARO loads at 0000H. Except 
for their origins in memory, SYSTEM. NSTAR2 and SYSTEM. NSTARO are identical. 
While the system is initially configured to use only the 2000H-based 
simulator, you may re-configure it to use the OOOOH-based simulator instead. 
The procedure for this is described elsewhere in this ADDENDUM. Note that 
the selected simulator is automatically loaded and executed whenever you 
"bring up" the Pascal system, and that the standard North Star bootstrap 
PROMs are able to bootload either the OOOOH-based simulator or the 2000H- 
based one. 

SYSTEM. PASCAL 

This is the Pascal command processor with which you interact to 
initiate editing, compiling, linking, and execution of your programs. The 
operation of this program is explained in detail in the SYSTEM REFERENCE 
MANUAL. 

SYSTEM. FILER 

This is a separate part of the operating system, which allows you to 
maintain data and program files on diskette. It is entered through the 
operating system's F(iler command. See section 1.2 of the SYSTEM REFERENCE 
MANUAL for operating details. 

SYSTEM. LIBRARY 

This is a collection of special routines which may be linked into your 
Pascal programs after they are compiled and before they are executed. See 
the section 1.8 (LINKER), and section 3.3.2 of the SYSTEM REFERENCE MANUAL 
for more information about the SYSTEM. LIBRARY. Note that this file should 
remain on-line while preparing Pascal programs for execution, especially 
those which involve input/output of real numbers, since the routines which 
accomplish this must be linked into compiled programs from the 
SYSTEM. LIBRARY before execution. 

SETUP. CODE 

SETUP is an interactive program which permits you to re-configure your 
Pascal system to observe the screen control conventions of your particular 
console terminal. See section 4.3 of the SYSTEM REFERENCE MANUAL for 
further information. 

SYSTEM. MISCINFO 

This data file contains configuration information for your system, 
including much of that which permits cursor-controlled operation on video 
terminals. The SYSTEM. MISCINFO file supplied with your Pascal system makes 
the system treat your terminal as if it has no cursor-control (except for 
standard carriage-return and linefeed functions). Single character input 
deletion is accomplished by striking the underline (_) key, and deletion of 
an entire input line occurs when the terminal f s at-sign (@) key is pressed. 
You will need to use the SETUP and BINDER programs in order to adjust your 
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system for convenient video screen operation with full cursor-control, 
screen and line clear functions, backspacing, etc. 

SOROC.MISCINFO 

For those whose console terminal is a SOROC IQ120, use of this special 
MISCINFO file will re-configure your system to use the full cursor-control 
capabilities of the terminal. In particular, striking the left-arrow vector 
key will delete a single input character at a time (backspacing and erasing 
that character) while the RUB key must be depressed to cancel an entire 
input line (erasing that line from the screen). See the PERSONALIZATION 
section in this ADDENDUM for complete details. 

HAZ.GOTOXY.TEXT 
HAZ.GOTOXY.CODE 
HAZ. MISCINFO 

These three files will aid the owner of a HAZEL TINE 1400 or 1500 series 
terminal in personalizing North Star Pascal for complete cursor-controlled 
operation. The first contains the text source of the Pascal procedure used 
to position the screen cursor at an xy-coordinate (G0T0XY). The second file 
is the compiled p-code version of the GOTOXY procedure, ready to be inserted 
into the Pascal system by the BINDER program. The last file contains 
SYSTEM. MISCINFO parameters for the Hazel tine terminals, and should replace 
the standard SYSTEM. MISCINFO file on systems where the console device is a 
Hazel tine terminal. HAZ. MISCINFO stipulates that backspace (or left-arrow) 
is the system character-delete key, while DEL is used to cancel an entire 
input line. (Note that terminals used with HAZ. MISCINFO and HAZ. GOTOXY must 
ignore parity information, and must NOT be set for auto-linefeed. ) See the 
PERSONALIZATION section in this ADDENDUM for additional details. 



2. The Compiler Diskette, COMP: 

Because it was not possible to put all major system software on one 
single-density diskette, PASCAL-S includes an extra diskette, 

COMP: 

which contains, among other programs, the Pascal compiler and the screen- 
oriented editor. Note that the increased capacity of double-density and 
quad-capacity diskettes eliminates the need for a separate COMP: diskette in 
PASCAL-DQ. All software listed under COMP: is included on PASNS: in PASCAL- 
DQ. 

SYSTEM. EDITOR 

The SYSTEM. EDITOR is initially the screen-oriented editor described in 
section 1.3 of the SYSTEM REFERENCE MANUAL. If you do not have a cursor- 
controlled video terminal, you should make YAL0E.C0DE (a conventional line- 
oriented editor) into the SYSTEM. EDITOR. See the PERSONALIZATION section of 
this ADDENDUM for more information on your choice of text editors. 
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SYSTEM. COMPILER 

This is the Pascal to p-code compiler as described in section 1.6 of 
the SYSTEM REFERENCE MANUAL. 

BOOTER.CODE 

BOOTER is a program which copies the special bootstrap code from the 
bootstrap disk to another copy of the bootstrap disk. Bootstrap code is 
contained in several "invisible" Pascal disk blocks which are not accessible 
through or indicated by the disk directory. When the F(iler f s T(ransfer 
function is used to copy the contents of the bootstrap diskette over to 
another disk, the "invisible" blocks are NOT copied, since they are not 
reflected in the directory. In order to copy the bootstrap diskette using 
only Pascal system software, it is necessary to use the T(ransfer function 
to copy all files in the directory to the new disk, then X(ecute the BOOTER 
program to transfer the "invisible" blocks. See section 4.4 in the SYSTEM 
REFERENCE MANUAL for more information. (Note that the PASCAL-UPGRADE 
product, which isn f t described here, includes a Pascal utility to copy 
entire diskettes, but this is not a part of standard Pascal system 
software. ) 

BINDER. CODE 

This program injects a special procedure, GOTOXY, into the Pascal 
operating system in order to facilitate cursor-controlled operation. You 
will need to use this program if your video terminal is NOT a Lear Siegler 
ADM-3A or a SOROC IQ120. Before you can use BINDER, you must write and 
compile a version of the GOTOXY procedure which is appropriate for your 
terminal. BINDER will then make the resulting code file a part of the 
system. For examples on how your GOTOXY procedure should be written, see 
section 4.7 of the SYSTEM REFERENCE MANUAL. Note that this procedure must 
be compiled using the {$U-} compile-time option, which is explained in 
section 1.6.1 of the SYSTEM REFERENCE MANUAL. Also, your version of GOTOXY 
may NOT itself be called "GOTOXY", but may be referenced by that name once 
it has become part of the Pascal system. 

SYSTEM. LINKER 

Pascal programs may be compiled separately, and then may be linked 
together, before being executed, to form new software packages. Machine- 
code routines may also be linked into Pascal code before execution. This 
makes it possible to have "libraries" of often-used routines which may be 
linked into compiled Pascal programs whenever necessary. See sections 1.8 
and 3-3.2 of the SYSTEM REFERENCE MANUAL for more information. (Note that 
the AUX: diskette, described later in this ADDENDUM, contains utilities for 
the creation and management of software libraries.) 

YALOE. CODE 

YALOE is "Yet Another Line Oriented Editor" and is intended to be used 
as the SYSTEM. EDITOR when no cursor-controlled video display is available as 
console device. See the PERSONALIZATION section of this ADDENDUM for the 
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procedure which must be followed to convert YALOE.CODE to SYSTEM. EDITOR if 
the screen-oriented editor is inappropriate for your system. Information 
about YALOE is contained in the REFERENCE MANUAL, section 1.4. 



B. Personalization of Pascal 

NOTE: The personalization process described here assumes your familiarity 
with the North Star DOS and MONITOR, which are supplied as standard software 
with your HORIZON computer or MICRO DISK SYSTEM. You will need to use the DOS 
and MONITOR to effect personalization of your Pascal system. If you are not 
familiar with the DOS or MONITOR, refer to the proper sections of the NORTH 
STAR SYSTEM SOFTWARE MANUAL for further details. 

1 . CREATING THE WORKING DISKETTES 

The Pascal diskettes you receive from North Star are write-protected. 
They are your FACTORY MASTERS, and YOU SHOULD NEVER ATTEMPT TO WRITE DATA ON 
THEM, OR TO REMOVE THE WRITE- PROTECT TAB. The factory masters should be 
used to create a set of WORKING DISKETTES, which will remain unprotected, 
and which will be used in routine operation of the system. Upon receipt of 
your Pascal factory masters, create a set of working diskettes by using the 
CD command (or utility) in the North Star DOS to copy the contents of each 
factory master onto a new diskette. Be sure to copy the label information 
for each factory master onto the label of the appropriate duplicate 
diskette. Then, retire the write-protected factory masters to a safe place 
where they may be kept until needed to generate more duplicates. Official 
warranty policy for North Star Pascal requires return of your factory 
masters before warranty replacement or update is possible, so RETAIN YOUR 
FACTORY MASTERS' IN THEIR ORIGINAL CONDITION! 

2. I/O PERSONALIZATION OF THE P-MACHINE SIMULATOR 

a. Getting Started 

The standard Pascal system, as shipped, is pre-configured to operate 
on a HORIZON computer system, using the standard serial port as CONSOLE: 
device, the second serial port as PRINTER:, and the parallel port as 
REMOUT:. (Note that the REMOTE: device described in the SYSTEM REFERENCE 
MANUAL has been changed to two devices, REMOUT:, which is device #8, and 
REMIN:, which is device #7. Only REMOUT: is available in North Star 
Pascal, Version 1.) 

If you have a HORIZON as described above, you may bootload the system 
without any modifications being necessary. In this case, skip to the 
CONSOLE TERMINAL CONFIGURATION section. However, if your computer does 
not follow the HORIZON'S input/output conventions, you will need to 
"personalize" your system to use your particular I/O devices. PASCAL-DQ 
must also be personalized to take full advantage of quad-capacity drives. 
(It is normally configured to use only one side of each drive.) 

As implied before, the North Star Pascal p-machine simulator has been 
written in 8080 machine code compatible with 8080, 8085 and Z80 machines. 
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The first 1.5K of the simulator is devoted to device input/output code, 
but the first 1K of that contains mostly routines which handle disk I/O. 
The "User I/O Area" of the Pascal system begins at SYSORG+400H, where 
SYSORG is the origin of the simulator, 0000H for SYSTEM. NSTARO , and 2000H 
for SYSTEM. NSTAR2 . Thus, the User Area begins at 400H for SYSORG=0000H 
and 2400H for SYSORG=2000H. Within this area, you have 467 bytes into 
which you may write I/O drivers for your particular console, printer, etc. 

You should boot the North Star DOS now, and insert the working copy 
of the PASNS: diskette into drive #2 (Pascal device #5). Use the LI 2 
command to get a listing of the diskette directory. You should see the 
following: 

(for PASCAL-S) 



PASNS: 





4 S 







V1.R2.SD 





S 







PASCAL 





S 


1 


E800 


USERI0.2 


XXX 


2 S 


1 


2400 


USERIO.O 


XXX 


2 S 


1 


400 



(for PASCAL-DQ) 



PASNS: 





4 


D 







V1.R2.DQ 








D 







PASCAL 








D 


1 


E800 


USERI0.2 


XXX 


2 


D 


1 


2400 


USERIO.O 


XXX 


2 


D 


1 


400 


In place 


of " 


xxx" 


in 


the 


listi 



in the listing will be the actual North Star disk 
addresses where the USERIO files happen to be on the factory master 
diskette. The Pascal system itself does not create, maintain, or use the 
North Star format diskette directory. North Star provides DOS format 
directories on its Pascal system diskettes for your convenience only. The 
presence of these directories alerts DOS users to the fact that diskettes 
bearing them are Pascal diskettes and are not to be used under DOS (except 
in the cases of disk initialization, duplication, or personalization, as 
described below). 

Another reason for including a DOS format directory on Pascal system 
diskettes (especially the bootstrap diskette) is to facilitate 
personalization of Pascal under DOS. Notice the two "files", USERIO. 2 and 
USERIO.O. The areas on the diskette named by these files correspond to 
the User Areas for the simulators SYSTEM. NSTAR2 and SYSTEM. NSTARO, 
respectively. For either simulator to run on your computer system, the 
low-level I/O routines contained in its User Area must be appropriate for 
your computer configuration. Note that changing one version of the 
simulator so that it will run on your system will not change the other. 
For both SYSTEM. NSTAR2 and SYSTEM. NSTARO to run on your system, you will 
have to configure both USERIO files to reflect the I/O requirements of 
your computer and peripheral devices. 
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As shipped from the factory, the PASNS: bootstrap diskette is 
configured to bootload SYSTEM. NSTAR2 and ignore SYSTEM. NSTARO . Thus, you 
must make certain to modify the DOS "file" USERI0.2 before you can bring 
the system up. If you intend to use the OOOOH-based SYSTEM. NSTARO , you 
should also modify USERIO.O as well. To load a User Area into RAM using 
North Star DOS, use one the following commands, depending on which Area 
you wish to manipulate: 

LF USERIO.2,2 xxxx 

or 

LF USER 10. 0,2 xxxx 



The above assumes that the bootstrap diskette is in the secondary drive 
(Pascal device #5). The actual address in RAM memory where you wish the 
code to be loaded should be substituted for the "xxxx" shown above. This 
address must be in hexadecimal. For example, to load the User Area for 
the 2000H-based simulator from disk into RAM starting at location 4400H, 
type: 

LF USERIO.2,2 4400 

For sake of discussion, it will be assumed that the User Area has been 
loaded into 4400H during all personalization steps described here. 

Now, use the North Star MONITOR to modify the User Area so that it 
contains routines appropriate to your computers configuration. See 
Appendix 1 for a detailed specification of the User Area. (To get a feel 
for the type of things you will be doing, see Chapter G, "INSTALLING THE 
INPUT/ OUTPUT ROUTINES", of the GETTING STARTED section of the North Star 
SYSTEM SOFTWARE MANUAL. This process is roughly analogous to, but NOT THE 
SAME as what you must do to install I/O routines into Pascal. ) Remember 
that the I/O routines will actually begin in memory at the origin of the 
simulator + 400 H. 



b. Installing the Input/Output Routines 

Once you have modified the User Area which has been in RAM during 

this discussion with the appropriate changes to the jump table and your 

own I/O personalization routines, return to the DOS and execute either the 
command : 

SF USERIO.2,2 4400 
or 

SF USERIO.O, 2 4400 
depending upon which version of the simulator you are personalizing. 
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If you have not had to personalize your working bootstrap diskette, 
or if you have followed all instructions in section 2 correctly, your 
diskette should be ready to bootstrap-load the Pascal system into your 
computer. 

Simply insert the bootstrap diskette into the primary drive and cause 
your computer to begin execution at E800H. (Standard HORIZONS will do 
this automatically at reset or whenever they are turned on. ) If you are 
in the DOS, and the DOS format directory contains the "PASCAL" file as 
listed above, you may instead type: 

GO PASCAL 

After a few seconds of disk activity, you should be greeted with the 
following message: 



Welcome PASNS:, to 
U.C.S.D. Pascal System 1.5 
Current date is 1-Dec-79 

Command: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem. .. 



If you do not get this response, try re-booting (forcing your 
computer to execute at E800H) . If you did not personalize your diskette 
prior to bootstrap-loading, either the diskette is defective, or you do 
not have a standard HORIZON configuration and need to personalize the 
system as described in section 2. If your diskette is defective, go back 
to section 1, CREATING THE WORKING DISKETTES, and start everything over 
again, using new diskettes for your working copies. 

If you did personalize your diskette prior to bootstrap, your 
personalization routines may be incorrect. Please double-check the 
correctness of your I/O personalization routines, and, when you are 
satisfied that they are correct, re- personalize the working bootstrap 
diskette according to section 2. 

3. CHOICE OF SIMULATORS 

If your system has come up as described above, you are using the Pascal 
p-code simulator which is resident starting at 2000H in memory 
( SYSTEM. NSTAR2 ) . Because many computer systems cannot contain the 48K RAM 
required for program development unless memory starts at 0000H, and also 
because no system may run with the recommended 56K of RAM unless contiguous 
memory begins at 0000H, the simulator SYSTEM. NSTARO, with origin at 0000H, 
is included on the bootstrap diskette. If you are satisfied with the system 
at 2000H, you may R(emove the SYSTEM. NSTARO file from your working bootstrap 
diskette. However, if you would rather use the OOOOH-based simulator, you 
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must first personalize its I/O routines if necessary (see section 2, above), 
then use the F(iler to R(emove SYSTEM. NSTAR2 or C(hange its name to 
something else, such as "P.SIMULATR.2000". Once you have done this, you may 
re-boot the system, and the SYSTEM. NSTARO simulator will be used. (At boot- 
load time, the bootstrap routine scans the diskette's Pascal directory — 
NOT the DOS format directory — for the first SYSTEM. NSTAR X file it can 
find, then loads the contents of that file into the appropriate memory 
location as indicated by the digit at the end of the file name.) 

Note that, if you R(emove either simulator file, the DOS format 
directory (which lists the locations of the User Areas for each file) will 
NOT be changed to reflect the file's absence. If you use the Pascal system 
to make changes in a diskette which also has a DOS file directory, and any 
of those changes affects the accuracy of the information in the DOS format 
directory, you may want to use the DOS to update or delete the information 
in that directory. 

4. CONSOLE TERMINAL CONFIGURATION 

Your Pascal system was shipped configured for a terminal with no 
cursor-control. If you have a cursor-controlled video screen, you may want 
to reconfigure the system to take advantage of the special features of your 
terminal. For example, features on your terminal may make it possible for 
instant erasure of a line of input in response to striking the line-delete 
key, or backspacing and erasure of the preceding character in response to 
the character-delete key. 

If your terminal is a SOROC IQ120, the reconfiguration process is 
brief. When the system asks for a "Command" (as it does at bootstrap-load 
time) , strike the "F" key. After a second of disk activity, you should see 
a command-prompt line which begins with the word "Filer" instead of 
"Command." You are now in the File Maintenence portion of the Pascal 
operating system. Strike the "C" key, and you will be asked for the name of 
a file whose name is to be CHANGED. Type 

SOROC. MISCINFO<CR> 

where <CR> indicates striking the RETURN key. Then, you will be asked for 
the new name for the file. Type 

SYSTEM. MISCINFO<CR> 

The system will reply 

PASNS: SYSTEM. MISCINFO exists. . .remove it ? 

and wait for you to strike a key. Strike "Y" (for "yes"). When the system 
replies that the change has been made, you should re-boot the system. You 
should see a difference in the greeting procedure. For one thing, the 
screen will be cleared before the greeting is printed on it. This is a hint 
to you that everything is operating smoothly, and that the system is now 
using the cursor-control and other facilities of your SOROC terminal. 
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The SYSTEM. MISCINFO file contains information which allows your Pascal 
system to take advantage of whatever special screen-control facilities your 
console terminal has. Initially, the SYSTEM. MISCINFO file tells the system 
to assume that only a non-cursor-controlled device is available. By 
changing the SOROC. MISCINFO file to SYSTEM. MISCINFO, you have changed the 
system's expectations and abilities. (HAZELTINE owners should note that the 
process described applies to their terminal as well, execpt that the file 
whose name is changed to SYSTEM. MISCINFO should be HAZ. MISCINFO instead of 
SOROC. MISCINFO). 

North Star could not include special MISCINFO files for every terminal 
on the market. If you own a terminal other than a SOROC IQ120 or a 
HAZELTINE (1400/1500 series), you must (in the Command mode) X(ecute the 
program SETUP, which will assist you in creating a NEW. MISCINFO file suited 
to the particular features of your cursor-controlled console terminal. See 
section 4.3 of the PASCAL SYSTEM REFERENCE MANUAL for more details about 
SETUP. Before you quit SETUP, be sure that you have "Updated the Disk" as 
part of the QUIT procedure. When you return to Command mode at SETUP'S 
conclusion, change NEW. MISCINFO to SYSTEM. MISCINFO just as described above 
for SOROC. MISCINFO and HAZ. MISCINFO. 

One more thing may be necessary before cursor-controlled video 
operation will work on your terminal. The SOROC IQ120 and the Lear Siegler 
ADM-3A terminal use the same "escape sequences" for repositioning the screen 
cursor to any specific point on the screen. In brief, an ESC code (ASCII 
27) and the "equals" (=) character are sent to the terminal, followed 
immediately by the Y (row) and X (column) co-ordinates expressed as ASCII 
characters. ASCII character 32 (space) represents row or column 0, ASCII 33 
( ! ) denotes row or column 1 , etc. If your terminal follows the same 
conventions, you need only re-boot the system after installing the new 
SYSTEM. MISCINFO file to achieve full screen operation, since the system is 
already configured to recognize and use this particular cursor-control 
method. 

If your terminal handles X,Y cursor positioning differently than the 
above terminals, however, it will be necessary for you to prepare a Pascal 
procedure such as "IQ120XY" in section 4.7 of the PASCAL SYSTEM REFERENCE 
MANUAL. The procedure should accept two integer co-ordinates, X and Y 
(column, row), and the result should be that the cursor is re- positioned at 
the proper screen co-ordinates. C(ompile the procedure, and X(ecute the 
program "BINDER" ("COMP:BINDER" for PASCAL-S) to bind the compiled procedure 
into the Pascal Operating System. (For HAZELTINE owners, North Star has 
already supplied a compiled version of the proper GOTOXY routine on the 
PASNS: diskette. Simply X(ecute BINDER and name HAZ. GOTOXY. CODE as the file 
containing GOTOXY. ) *** IMPORTANT! *** You cannot use the screen editor to 
prepare the GOTOXY text until you have screen control fully implemented on 
your system, so you must X(ecute C0MP:YAL0E in order to prepare the text 
file for compilation prior to binding. Do NOT use the E(dit command to 
invoke the editor until you have completed step 5 below. 

Note that BINDER requires at least 60 free disk blocks before it will 
operate correctly. It invokes the L( inker program automatically to create a 
new version of the operating system with your personalized XY procedure 
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linked in. Neither the single-density nor the DQ version of PASNS: has 
sufficient free disk space for the BINDERS operation, so it will be 
necessary for you to T(ransfer some files from the PASNS: disk to another, 
empty Pascal data diskette, then R(emove these files from your working 
PASNS: diskette, leaving at least 60 free disk blocks before X(ecuting 
BINDER. The SETUP. CODE, SYSTEM. LIBRARY, and unused simulator files may be 
T(ransf erred to an alternate diskette and R(emoved from the working PASNS: 
diskette to make room for BINDER operation. DO NOT remove any SYSTEM file 
(except the SYSTEM. LIBRARY and the unused simulator) from the PASNS: 
diskette for this procedure. 

When the appropriate files have been removed, consolidate the available 
free disk blocks at the end of the diskette by using the K(runch command in 
the F(iler. (See section 1.2.5.16 of the SYSTEM REFERENCE MANUAL.) BINDER 
may now be executed. When BINDER is finished, re-boot the system, and 
T(ransfer the files back to the PASNS: diskette. 

Once your special version of GOTOXY has been bound into the system, you 
should be able to re-boot the system and enjoy full cursor-controlled video 
console operation. PASCAL-S users should note that both the SYSTEM. COMPILER 
and the BINDER program are on the COMP: disk, so you will have to have the 
COMP: disk in your second disk drive while compiling and binding your GOTOXY 
procedure. 



5. CHOICE OF EDITORS 

Once you have set up screen-oriented operation on your system, or have 
decided that you will not opt for screen-orientation (becuase your terminal 
is a TTY, doesn't have cursor-control, etc.), you may choose which, of the 
two editors available on the system, you will use as your SYSTEM. EDITOR. If 
your system is screen-oriented, you need make no change in the existing 
SYSTEM. EDITOR file — it already contains the screen-editor. In this case, 
you should R(emove YALOE.CODE from the working diskette (the working COMP: 
diskette if you have PASCAL-S) , in order to acquire more free storage space 
on that diskette. If you- do not have a screen-oriented terminal, you CANNOT 
use the screen editor, and must use YALOE instead. To do this, go into the 
F(iler, C(hange YALOE.CODE to SYSTEM. EDITOR (both of these are on the COMP: 
disk for PASCAL-S), Q(uit the Filer, and you're all set. 

After choosing your SYSTEM. EDITOR, you may use the E(dit command to 
invoke that editor. 

For purposes of convenience in program development, single-density 
users may wish to use the F(iler's T(ransfer command to put their chosen 
SYSTEM. EDITOR on the bootstrap diskette, rather than keep it on the COMP: 
diskette. With the bootstrap diskette in the primary drive and the COMP: 
diskette in the secondary drive (Pascal device #5), go into the F(iler, use 
the T(ransfer command to move COMP: SYSTEM. EDITOR to *SYSTEM. EDITOR, then 
R(emove COMP -.SYSTEM. EDITOR and Q(uit the Filer. 
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III. NORTH STAR PASCAL IMPLEMENTATION NOTES 

A. Pascal Disk Blocks 

A Pascal "disk block" contains 512 bytes of information. This is 
equivalent to two North Star standard disk blocks (256 bytes each). Thus, a 
single-density diskette, holding 350 North Star disk blocks of information can 
contain up to 175 Pascal-style blocks. Double-density diskettes, holding 700 
North Star disk blocks of information, can contain up to 350 Pascal-blocks. 
Quad-capacity diskettes can contain 1400 North Star disk blocks, and therefore 
up to 700 Pascal-blocks. However r the first track on every diskette (track 0) 
is "off limits" to the Pascal system, and is reserved for routines and 
information (such as the DOS format directory and the bootstrap routine) which 
are specific to the North Star implementation of Pascal. These blocks are not 
accounted for in the Pascal diskette directory, but all others are (including 
those which contain the Pascal directory itself!). 

The blocks covered in the Pascal directory, and which are normally 
available to the Pascal system for routine data storage and manipulation, are 
called the RELATIVE BLOCKS. They begin with the first sector of the second 
track (track 1 /sector 0). There are 170 relative blocks on a single-density 
North Star Pascal diskette, 340 on a double-density diskette, and 690 on a 
quad-capacity diskette. When you use the F(iler's Z(ero command to "zero" the 
directory of a Pascal diskette, make sure that the "number of blocks" is set 
to 170, 340, or 690, depending on the capacity of your disk drives. 

B. Program Development with Single Density 

NOTE: While this section is primarily for the benefit of single-density users, 
DQ users may find items 4 and 5 useful. 

Program development with a single- density system is somewhat tricky. The 
SYSTEM REFERENCE MANUAL describes program development procedures which rely 
heavily on the "W0RKFILE" features of the system. That is, unless told 
otherwise, the system assumes that all program development will be done using 
standard "workfiles" which may be manipulated conveniently with special built- 
in commands, etc. Unfortunately, the system requires that all workfiles exist 
on the bootstrap diskette, which is inconvenient under single-density 
operation on 5-1/4" floppies, since there is not much free storage space 
available on either the bootstrap or C0MP: diskettes. 

The single-density user may use "workfile mode" successfully if the 
programs developed under that mode are small, and are infrequently modified. 
As programs become larger, and are maintained more often, you may find 
yourself running out of diskette storage space for the workfile in the middle 
of an editing session, meaning that it will be impossible for you to update 
your workfile with any changes made during that session! To combat this space 
limitation, you should use the following strategy: 

1 . Avoid using commands or features which establish or update a workfile. 
Do not use the "U" option when quitting the editor. Instead, use the "W" 
option to write the editor buffer back to the original file (which you will be 
expected to name). 
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2. If ever you do find yourself with an unwanted workfile, go into the 
filer and use the N(ew command to eradicate the workfile. Note that, if there 
is a workfile in your bootstrap diskette directory, the system will shift 
automatically into "workfile mode." N(ew takes it out of that mode. This is 
especially important when using the editor, compiler, or assembler, because 
you do not get a choice of which files you wish to edit, compile or assemble 
in workfile mode. The system assumes that you wish to deal with the workfile 
only. When you are not in workfile mode, the editor asks which file you want 
to edit, the compiler and assembler ask for the names of source and 
destination (code) files, etc. 

3. A test to see whether or not you are in workfile mode is to go into 
the F(iler, and invoke the W(hat command. Any response other than "No 
Workfile" means that you are in workfile mode, and should invoke N(ew to get 
out of that mode. (Since you probably entered the workfile mode by accident, 
there is a good chance that important information is in the workfile. You 
should use the S(ave command in the F(iler to save the contents of the 
workfile into an appropriate TEXT or CODE file before using the N(ew command, 
which will erase the workfile. ) 

4. Before writing a file to diskette from the editor, you must be sure 
that there is enough free space on the diskette to hold the contents of that 
file. If that free area is not available, you will not be able to write out 
the contents of the editor's buffer, and run the risk of losing your changes 
for that session. If you are editing large files, it is best to go into the 
F(iler before editing, and use the L(ist or E(xtended-list commands to 
determine, by looking at the directory, whether sufficient free diskette space 
is available for a file creation or update. If you have reason to doubt that 
sufficient space exists, you should use the filer's B(ad blocks command to 
search the diskette for any bad blocks. If there are any, you have a bad 
diskette, and should take steps to transfer all the good blocks onto another, 
good diskette. If there are no bad blocks, you can use the K(runch command in 
the filer to reclaim unused diskette storage space (similar to the CO utility 
in North Star's DOS). If, after K(runching the diskette you still have 
insufficient space for the file, you will have to update your file onto 
another diskette where enough free space is available. CAUTION: It is not 
possible to leave the editor temporarily for the purpose of K(runching a 
diskette. When you leave the editor, you lose the work for the session unless 
you first write the editor's buffer to a text file on diskette. So, it is 
important that you check the status of your diskette BEFORE editing. 

5. Usually, during program development and execution, the bootstrap 
diskette is in the primary drive (device #4), and the COMP: or AUX: diskette 
is in the secondary drive (device #5). When compiling or assembling large 
programs whose source and object won't fit together on either of those disks, 
it may be necessary to put source on a separate diskette, and compile or 
assemble the object to that diskette also. To do this, you must give the 
A(ssem or C(omp command in the Command mode, and when the chosen program asks 
for a source file name, you must remove the bootstrap diskette from device #4 
and insert the source/destination program development diskette. To name the 
files on that diskette, you must prefix each name with either "#4:", as in 
"#4:PR0G1», or with the name of the diskette volume, as in "DEVELOP :PR0G1", 
assuming the name of the diskette is "DEVELOP:". (You will probably want to 
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enter the F(iler and use the P(refix command to set the default diskette to 
the name of your development volume before entering the editor, compiler, or 
assembler. Then, you won*t have to retype the volume name for every file on 
that diskette. ) When the compilation or assembly is complete, the operating 
system will remind you to re-insert your bootstrap diskette before you can re- 
enter Command mode. 

If you must remove the bootstrap diskette in order to facilitate an 
assembly or compilation, be warned that, if a fatal error occurs during the 
operation and the bootstrap diskette is not available for system re- 
initialization and recovery purposes, you will be stuck in an endless loop of 
p-machine execution errors (typically errors 2 and/or 3 — see TABLE 1, PASCAL 
SYSTEM REFERENCE MANUAL). If this occurs, you will be forced to re-insert the 
bootstrap diskette in device #4 and initiate re-booting by hand. In less 
severe circumstances, the system will remind you to replace the bootstrap 
diskette. 

When using the E(ditor, NEVER remove the diskette which contains the 
editor program itself. The diskettes containing the C(ompiler, L( inker, or 
A(ssembler must also remain in their respective drives when any of them is in 
use. Failure to observe this rule may result in p-machine execution errors, 
and (especially in the case of the editor) loss of data before it can be 
written to diskette. 

At some point, it may be necessary for you to remove BOTH system 
diskettes in order to transfer a file from one development diskette to another 
development diskette, or to a fresh diskette. To do this, you must first be 
in the F(iler. Once you are in the F(iler, it is OK to remove ALL diskettes 
from the drives and replace them with new ones for the T(ransfer, if you wish. 
The F(iler is self-contained, and doesn f t care what diskettes are in the 
drives. However, to leave the F(iler, it is necessary to re-insert the 
bootstrap diskette, and the system will remind you to do so. 

C. Terminals with Short Line Lengths 

North Star does not recommend that terminals with line lengths shorter 
than 80 columns be used for cursor-controlled operation under Pascal version 
1, since the menu- prompting schemes for the Command mode and the F(iler are 
rather heavily oriented to screens at least 80 characters wide. However, the 
screen-editor will work properly with terminals whose line lengths are shorter 
than 80 columns. In any case, Pascal may still be used in the line-oriented 
node (with YALOE as the SYSTEM. EDITOR) with all terminals. Future releases of 
North Star Pascal will support at least terminals with line length of 64 
characters or greater. 

D. Numeric Capabilities of North Star Pascal 

In keeping with all known implementations of UCSD Pascal, North Star 
Pascal permits 7.1 digit precision in real (floating-point) number 
computations, using a 32-bit binary floating-point internal representation. 
The standard procedures WRITE and WRITELN will display up to 6 digits of real 
number precision. Real numbers may range from + 1.0E-38 to ± 9.99999E+38, and 
the maximum dollar/cents amount which may be represented by a real number 
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without rounding is + $9999.99. A full range of intrinsic functions, 
including exponentials and transcendentals, is provided to facilitate 
arithmetic on real numbers. Note that any programs which do I/O of real 
numbers must be linked to appropriate routines contained in the SYSTEM. LIBRARY 
before they may be executed. 

Integers are represented as 16-bit twos-complement binary quantities, and 
may range in value from -32767 to +32767. By decrementing a variable 
containing -32767 (or incrementing one which contains +32767), it is possible 
to obtain the twos- complement value of -32768, and use it in comparisons for 
equality or inequality, etc. However, -32768 is an "undefined" value in the 
North Star Pascal range of integers, and therefore cannot be input or output 
by the standard procedures READ, READLN, WRITE, or WRITELN. Furthermore, this 
value cannot be assigned explicitly to a constant or variable (as in INTVAR := 
-32768) without causing a program error. 

E. Unused Drives 

Although North Star Pascal supports up to three single-density drives or 
four double-density/quad-capacity drives, it is possible to operate the system 
with only one or two drives. (As noted before, two single-density drives are 
the practical mimimum requirement for program development.) As a consequence 
of system architecture, there will be occasions when the system will "look" 
for drives which may not be on-line (notably, at bootstrap load time, when the 
system initializes its peripherals). When this happens, the drive motors will 
be on, but no drive will appear to be selected. The "search" process for a 
nonexistent drive takes about 10 seconds with a single-density controller and 
1 second with the DQ controller for each drive which is not on-line. As an 
example, if you have a dual-drive single-density system, note that the drives 
appear to become dormant midway through the bootstrap initialization disk 
activity. After a few seconds of motor activity but no disk selection, a 
drive is finally selected, and the system proceeds to give you the greeting 
mentioned earlier. The dormancy period is normal, and occurs because the 
system is seeking the third drive, which is not available in your system. 
Except for the delay caused by the "dormant" periods, normal system operations 
remain unaffected. 

F. Handling of DLE (Control-P) and CR (Control-M) Under Pascal 

The Pascal system uses DLE as a lead-in character for an internal blank 
compression/expansion code. Within textfiles, any consecutive blanks which 
occur at the beginning of a line of text are compressed into a two-character 
sequence. The first is DLE, and the second is the character whose ASCII value 
is 32 more than the number of blanks being compressed. In general, when the 
operating system makes the contents of a textfile available to a Pascal 
program, or sends text to an interactive device (CONSOLE:, PRINTER:, REMOUT:), 
the compression code is re-constituted to the appropriate number of 
consecutive blanks. All two-character sequences which begin with DLE will be 
translated into zero or more blanks before they are output by the Pascal 
system to an interactive device. Moreover, any two character DLE sequence 
which is input from an interactive device is automatically expanded into zero 
or more blanks. Therefore, it is impossible to send or receive a DLE to or 
from any interactive device. 
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A similar problem is faced by those who wish to output the CR character 
(CHR(13), carriage-return) to an interactive device, since Pascal views CR as 
a "new-line" character, and expands it to a two-character sequence consisting 
of CR followed by LF (CHR(10), linefeed), before passing it along to the 
device. 

The "character interception" behavior of the Pascal system is unfortunate 
for those whose terminals use DLE as one of the cursor-control codes (such as 
the Hazel tine 1400/ 1500 series). More importantly, such "interception" may 
wreak havoc with the operation of the GOTOXY procedure for anv terminal. 
Certain steps may be taken to "fool" the Pascal system into accepting DLE and 
CR codes as they are. The part of the Pascal system which does the automatic 
DLE and CR processing sits "between" an applications program (user program, 
system editor, filer, etc. ) and the User Area routines. Characters are 
passed from the sending routine, through the "intermediate" system, to the 
receiving routine. Either a high-level program or a User I/O module may be 
the sender or receiver. To "fool" the intermediate system into passing DLEs 
and CRs untouched, it is only necessary that the sending routine turn the high 
bit of the character on before sending it, and the receiving routine turn that 
bit back off as soon as it receives it. Turning the high bit of a character 
on increases its "ASCII value" by 128, and insures that Pascal will not 
recognize it, nor meddle with it. To input or output a DLE, you should input 
or output a CHR( 16+128) instead. To output a CR character, send CHR( 13+128). 
(No special handling occurs on input of CR, so don't worry about that case.) 

So that Hazel tine 1400/1500 series terminals (or similar terminals) may 
be interfaced more simply to Pascal, North Star has written the CONSOLE: and 
PRINTER: low-level input routines in the standard User 1/0 block to intercept 
any incoming DLE codes and turn on their high bit before passing them along to 
the rest of the system. In the HAZ.MISCINFO file, the "KEY TO MOVE CURSOR 
RIGHT" code is specified as being decimal 144 (DLE with the high bit on), and 
the "MOVE CURSOR RIGHT" code is also decimal 144. The HAZ. GOTOXY procedure is 
able to recognize when it is sending a CR or DLE character, and always turns 
the high bits of these characters on before sending them. (Refer to the 
textfile contained on the PASNS: diskette.) Terminals receiving these codes 
should be configured to ignore the high (parity) bit. Alternately, the User 
Area output routines may be changed to mask off a character's high bit before 
passing it on to an I/O device. (This modification has already been provided 
for in the standard User Area. See SAMPLE INPUT/OUTPUT ROUTINES, elsewhere in 
this ADDENDUM.) 

G. Data Transfer Between Single-Density and DQ Diskettes 

The PASCAL-S system cannot read or write double-density data; The PASCAL- 
DQ system cannot read or write single-density data. However, an entire volume 
of Pascal data may be transferred from one diskette to another of the opposite 
density using the CF utility in the North Star dual-density DOS (Version 6, 
Release 5.0 or later). 

Nominally, CF will handle only DOS-format files, using the DOS directory. 
CF will not use the Pascal directory. Therefore, it is necessary for CF to 
treat the entire Pascal data area on a diskette as if it were a DOS file. To 
use CF in transferring Pascal information between diskettes of opposite 



PG 19 - ADDENDUM (REV A) TO PASCAL SYSTEM REFERENCE MANUAL, REV 3 (CONTINUED) 



densities, you must use DOS to CReate an entry in the DOS directory of each 
Pascal diskette which corresponds to the entire Pascal data area on that 
diskette. "CReating" a DOS-style file on a Pascal diskette does not alter any 
information on that diskette (except in the DOS-directory area itself, of 
course). It is done only to give the CF utility a "pointer" to the Pascal 
data region on the diskette. Once the DOS file entries exist, it is a simple 
matter to invoke CF and transfer information from one diskette to another, 
switching densities along the way. 

The Pascal data region of a single-density diskette is only half as large 
as that of a double-density diskette, and less than one-quarter as large as 
that of a quad-capacity one. This means that it will be possible to transfer 
a single-density Pascal volume in its entirety to a double-density or quad- 
capacity diskette. However, all the information on a double-density or quad- 
capacity Pascal volume will not fit on a single-density diskette. It is 
possible, though, to prepare a DQ Pascal volume which can contain only as much 
information as a single-density one. The half-capacity double-density volume 
may then be transferred to a single-density data diskette using the method 
mentioned above. To prepare a half-capacity double-density volume, first use 
the DOS to initialize an unused diskette to double-density. Then, boot-up 
Pascal and use the F(iler f s Z(ero command, to initialize the Pascal directory 
of the diskette. When Pascal asks for the number of blocks, enter 170, the 
number of blocks on a single- density diskette, instead of the usual 3^0 for a 
double-density diskette (or 690 for quad-capacity). 

As a result of the above procedure, you will have a double-density Pascal 
volume whose entire contents may be transferred to a single-density diskette. 
To transfer from double-density to single-density, first use the Pascal 
F(iler*s T(ransfer command to copy files you choose from regular-capacity 
double-density Pascal volumes to the special half-capacity volume. Because 
the Pascal system is aware of the decreased storage capacity of the special 
volume, it will not permit you to put more information on that volume than a 
single- density diskette can hold. When all the files you wish to transfer to 
single-density have been copied onto the half-capacity diskette, boot-up the 
double-density DOS, make sure that both the half-capacity double-density 
diskette and the destination single-density diskette have appropriate DOS 
files on them which refer to their respective Pascal data areas, and then use 
the CF utility to transfer the volume from double-density to single-density. 

Note that after an entire volume transfer using CF, the resulting single- 
density or double-density diskette (depending on which direction the transfer 
went) will be an exact duplicate of the original volume which was transferred. 
In particular, the volume names will be the same. Also, if a single-density 
volume is transferred to double-density, the resulting double-density volume 
will be a half-capacity volume, and the diskette storage area after the 170th 
Pascal block will be inaccessible using the usual Pascal disk accessing 
methods. 

Following are examples of transfers between single-density and double- 
density volumes. The first transfers single-density to double-density, and 
the second transfers double-density files to a single-density volume using an 
intermediate, half-capacity double-density Pascal volume. Both procedures 
assume that the disks involved in the transfer either have good information of 
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the appropriate density on them, or have been initialized using the DOS IN 
command to the appropriate density before the transfer process begins. Also, 
both procedures require at least two disk drives to be on-line. If you have 
only a single-drive system, transfer of Pascal information between diskettes 
of different densities is quite difficult, and is not recommended. 

SINGLE-DENSITY TO DOUBLE-DENSITY 

* Choose a single- density Pascal diskette and a double-density diskette 
in good condition. 

* Boot up double-density DOS (Release 5.0 or later). Type the following 
command : 

LF CF 2D00 

This readies the CF utility for later use. 

* Put the single-density Pascal diskette in drive #1 and the double- 
density diskette in drive #2. 

* Type the following commands: 

CR SDVOLUME 340 10 S 

{Create DOS single-density dummy file on drive #1} 

CR DDV0LUME,2 340 10 D 

{Create DOS double-density dummy file on drive #2} 

Note that either diskette may have been used for transfers like this 
before. Therefore, prior to using the CR command, you might check the 
directory of each diskette to see whether or not the SDVOLUME and 
DDVOLUME files already exist. (They must each be 340 North Star blocks 
in length, starting at disk address 10 on their respective diskettes.) 
If they do exist, avoid re-creating them. 

* Now, the CF utility may be used. Type the following: 

JP 2D00 SDVOLUME DDVOLUME, 2 
{Enter the CF utility} 

The CF utility will ask if you wish to write in Single or Double 
Density. Strike "D" for double. When the CF command finishes, the 
diskette in drive #2 will be a half-capacity double-density Pascal 
volume (170 Pascal storage blocks available, instead of 340). The 
information contained on it will be identical to that contained on the 
original single-density volume. Double-density Pascal may now be 
booted-up, and will be able to read files from the newly copied 
diskette. 
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DOUBLE-DENSITY TO SINGLE-DENSITY 

* First, prepare the half-capacity diskette. (If you already have one of 
these, skip to the next step.) Insert an initialized double-density 
diskette in device #5 (North Star drive #2), and enter the F(iler 
command level. Use the Z(ero command to initialize the Pascal 
directory of the diskette in the secondary drive (Pascal device #5) so 
that it contains only 170 free blocks of information. (When the system 
asks "# of blocks?" enter 170.) 

* Still in the Pascal F(iler, use the T(ransfer command to copy the 
Pascal files you choose onto the half-capacity diskette. 

* Leave Pascal by booting-up the double density DOS. Type the following 
command : 

LF CF 2D00 

This readies the CF command for later steps. 

* Put the half-capacity double-density diskette in North Star drive #1 
and a single-density diskette in North Star drive #2. Check to see 
whether or not the required DDVOLUME and SDVOLUME files exist on the 
two diskettes. If not, create them: 

CR DDVOLUME 340 10 D 

{Create DOS double-density dummy file on drive #1} 

CR SDVOLUME, 2 340 10 S 

{Create DOS single-density dummy file on drive #2} 

* Type the following command: 

JP 2D00 DDVOLUME SDVOLUME, 2 
{Enter CF utility} 

The CF command will ask if you wish to write in Single or Double 
Density. Strike "S" for single-density. When the utility is finished, 
the diskette in drive #2 will be a single-density Pascal volume with 
the same name as, and containing all the files and information on the 
double-density half-capacity diskette in drive #1. This newly 
generated diskette may now be read by single-density North Star Pascal 
systems. 
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IV. THE AUX DISKETTE 

The Auxiliary diskette, AUX:, is designed for use by advanced programmers. 
It includes two assemblers, for 8080 and Z80 operation, with which you may 
create machine-language routines which may be linked into your compiled Pascal 
programs. A series of utility programs round out the package. All AUX: 
diskettes contain the following files: 

Z80 . ASSMBLER 

This is the Z80 (Zilog Mnemonics) version of the U.C.S.D. Adaptable 
Assembler described in section 1.9 of the PASCAL SYSTEM REFERENCE MANUAL. 

Z80 . OPCODES 
Z80. ERRORS 

These are data files for the Z80. ASSMBLER ~ the assembler WILL NOT OPERATE 
without them. 

8080. OPCODES 
8080. ERRORS 

These are data files for the SYSTEM. ASSMBLER listed below. 

MARKDUPDIR. CODE 

MARKDUPDIR marks a Pascal data diskette so that a duplicate directory will 
be maintained automatically on it by the Pascal Operating System. (Note that 
the System Filer* s Z(ero command, which initializes a diskette directory, gives 
you the option of specifying single or duplicate directories. MARKDUPDIR need 
only be used when it is desired to maintain duplicate directories on a diskette 
which previously contained only one directory.) See section 4.8 of the SYSTEM 
REFERENCE MANUAL for more information. 

C0PYDUPDIR.C0DE 

In the event that the main directory on a diskette is crashed, it may be 
regenerated from the duplicate directory (if there is one) by use of COPYDUPDIR. 
See section 4.8 of the SYSTEM REFERENCE MANUAL for further details. 

RELOC.CODE 

This program relocates a machine-language CODE file produced by the system 
assembler to any desired base address, and produces a pure-code, relocated 
object file as output. The user must be careful to specify the EXACT, COMPLETE 
file name for CODE and OBJECT files (including prefix if the file is not on the 
default diskette, and any suffixes such as .CODE, .OBJ, etc.) or the program 
will fail. 

SYSTEM. ASSEMBLER 

This is the 8080 (Intel Mnemonic) version of the UCSD Adaptable Assembler. 
Note that this version of the Assembler gives you the option of generating 
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either a non-relocatable code file (with absolute addressing) or a relocatable 
code file (with relative addressing information usable by LINKER and RELOC). 

PATCH. CODE 

This utility program facilitates patching of data on diskette, and is 
described in section 4.5 of the PASCAL SYSTEM REFERENCE MANUAL. 

LIBRARIAN. CODE 

This program is described in section 4.2 of the SYSTEM REFERENCE MANUAL. 
It permits the user to insert often-used routines and UNITs into the 
SYSTEM. LIBRARY, or create new libraries as required. Note that the SYSTEM 
REFERENCE MANUAL calls this program LIBRARY. CODE, however, its North Star Pascal 
name is LIBRARIAN. CODE. 

The PASCAL-DQ AUX: diskette also contains one program which could not be 
included on the PASCAL-S AUX: diskette, due to space limitations: 

LIBMAP.CODE 

This provides the user with an extended listing of the contents of a code 
library, according to the scheme described in section 4.10 of the SYSTEM 
REFERENCE MANUAL. 
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APPENDIX 1: USER AREA SPECIFICATION AND DESCRIPTION 

The User Area is the part of the Pascal p-machine simulator which contains 
the routines which actually interface the system with the various physical I/O 
devices available under a given hardware configuration. A User Area which 
interfaces the system to the North Star HORIZON computer has been included on 
the standard PASNS: diskette. You may need to patch or replace these routines 
to reflect the particular requirements of your computer hardware (see I/O 
PERSONALIZATION OF THE P-MACHINE SIMULATOR, elsewhere in this ADDENDUM). This 
Appendix is a complete specification of the User Area, and is intended to aid 
you in modifying the User Area to suit your own special needs. 

You may place custom I/O routines at any arbitrary locations in the User 
Area, as long as the USER AREA JUMP TABLE reflects the locations you choose. The 
jump table is a 45-byte portion at the very beginning of the User Area. The 
467-bytes reserved for user I/O routines follow the jump table in memory, and 
together, they occupy a 512-byte block in RAM, which corresponds to two 
contiguous North Star disk blocks (256 bytes per North Star block). 

The jump table contains 13 sequential 8080 JMP instructions, each one 
corresponding to a different routine in the User Area. The first byte in each 
3-byte JMP instruction is usually a C3H, corresponding to an 8080 JMP. The next 
two bytes give the location of the routine itself, and it is this pair of bytes 
which must be changed to conform to the location you choose for a given routine. 
Note that a correct jump table must be present at the beginning of ANY User 
Area, or low-level I/O functions will fail and the system will crash. 

Below is a description of the jump table, along with specifications you 
must follow when writing the corresponding I/O routines. Note that all routines 
are responsible for returning to any code which calls them. For all but one of 
the routines, this should be done by executing one of the RET family of 
instructions. The case of NSMSIZ is unique, and is described in detail. 

SYSORG+400H: JMP C0N0NL 

This routine is called frequently to determine whether or not the CONSOLE: 
device is on-line or off-line. If the CONSOLE: is available, C0N0NL must return 
a 00H in the accumulator, otherwise 09H should be returned. No registers except 
the accumulator may be modified. (In this and all routines described here, the 
condition flags need NOT be saved or restored.) Two other routines, PTRONL and 
REMONL, perform on-line status reporting for the PRINTER: and REMOUT: devices, 
respectively, and must adhere to the same specifications as CONONL. 

SYSORG+403H: JMP CON IMP 

CONINP waits until a character is available from the CONSOLE: device, then 
returns it in the accumulator. No registers except the accumulator may be 
modified. 
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SYSORG+406H: JMP CONOUT 

CON OUT waits until a character may be sent to the CONSOLE:, then puts out 
the contents of the C register. A value of 00H must be returned in the 
accumulator to denote a successful I/O operation. No registers except the C 
register and accumulator may be modified. 

SYSORG+409H: JMP CONST 

This routine checks input status of the CONSOLE: device. If a character is 
ready, the value FFH (TRUE) must be returned in the accumulator. If no 
character is ready, 00H (FALSE) should be returned in the accumulator. No 
registers except the accumulator may be modified. 

SYS0RG+40CH: JMP PTRONL 

Reporting of on-line status for device #6 (PRINTER:) is done here. See 
CONONL (SYSORG+400H) for specifications. 

SYS0RG+40FH: JMP PTRINP 

PTRINP waits for an input character to be available from the PRINTER:, and 
then returns the character in the C register. (This is useful for implementing 
buffered-printer protocol schemes, etc.) The value 00H must be returned in the 
accumulator (indicating a successful I/O operation). No registers other than C 
and the accumulator may be modified. 

SYS0RG+412H: JMP PTROUT 

A single character, the contents of the C register, is sent to the PRINTER: 
device. The value 00H must be returned in the accumulator to denote a 
successful I/O operation. No registers other than C and the accumulator may be 
modified. 

SYSORG+415H: JMP REMONL 
SYSORG+418H: JMP REMINP 
SYS0RG+41BH: JMP REMOUT 

These are, respectively, on-line status reporting for, character input 
from, and character output to the REMOUT: device (Pascal system device #8). The 
specifications are the same as PTRONL, PTRINP, and PTROUT, respectively, except 
that a different device is accessed by these routines. 

NOTE: The JMP instructions for PTRINP, and PTROUT may be replaced in the jump 
table by RET instructions, provided that PTRONL always returns 09H (device off- 
line) in the accumulator. PTRINP and PTROUT will not be called by the system 
unless PTRONL reports that the device is on-line. The same thing holds for 
REMONL, REMINP, REMOUT. 
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SYSORG+41EH: JMP NSMSIZ 

This routine returns a 1 6-bit value on the stack which corresponds to the 
highest contiguous WORD (16-bit) location in Pascal system RAM. The routine 
which is supplied with the standard Pascal system as shipped from the factory 
searches the computer's memory space to find this upper limit, and considers 
that limit be reached when it ecounters no memory, ROM, or write-protected RAM. 
Note that if memory-mapped I/O devices (such as video display boards, etc.) are 
contiguous with system RAM, the standard "memory sizing" rjoutine will consider 
them as part of available RAM! If this is the case in your; system, you will have 
to install an alternate memory sizing routine, such as one; which returns a 
constant value as the upper limit. 

Remember that the value returned must point to an EVEN address (word 
boundary). For example, if system RAM extends to BFFFH, the value returned by 
NSMSIZ should be BFFEH. All registers may be used by this routine. The 
technique used for RETurning with the stack pointer pointing at the appropriate 
value is to load the value in the HL register pair, do an XTHL (exchange the 
value at the top of the stack — assumed to be the RETurn address — with the 
value in HL) , then execute a PCHL instruction, which is a JMP to the location 
represented by the value in HL. If you do not use this technique, your memory 
sizing routine may crash the Pascal system. (See SAMPLE INPUT/OUTPUT ROUTINES 
for an example of this technique in use. ) 

SYS0RG+421H: JMP NSCLOK 

The real-time clock option of the Pascal system is not yet available. For 
now, this routine should RETurn, with the "not-on-line" value of 09H in the 
accumulator. No other registers may be modified. 

SYS0RG+424H: JMP MACINT 

This routine is called by the Pascal system at bootstrap-load time just 
before the memory sizing routine is called, and provides for one-time machine 
and I/O device initialization each time the Pascal system is re-booted. For 
example, the HORIZON motherboard is initialized, memory-parity is enabled, and 
the two serial I/O ports are reset in the MACINT provided in the user area of 
both p-machine simulators on the factory master diskette. All registers may be 
used. 

SYS0RG+427H: DV4CHR 

SYS0RG+428H: DV5CHR 

SYS0RG+42QH: DVQCHR 

SYS0RG+42AH: DV10CHR 

These bytes are used only by the PASCAL-DQ system, but are present, though 
ignored, in the PASCAL-S system. Each byte corresponds to one of the four 
possible disk drives which may be connected to a DQ system (Pascal device 
numbers 4, 5, 9, and 10), and contains information about the characteristics of 
that drive. Six of the eight bits in each characteristics byte are significant. 
The high bit (bit 7) should be set (1) if the drive is to access double-density 
information, reset (0) if the drive is to access single- density information. 
Bit 6 should be set if the corresponding drive is quad-capacity (double-sided), 
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and reset if not. Bits 5 and H should remain reset — they are reserved for 
future use. The lower nybble of a characteristics byte (bits 0-3) contains the 
number of Pascal blocks which will fit in a disk track at the specified density. 
For drives operating in single- density, this nybble should contain 05H, since 
there are five Pascal blocks per single-density disk track. The lower nybble 
for a drive operating in double-density or quad-capacity mode should contain 
OAH, corresponding to the 10 Pascal blocks per DQ track. All four bytes in the 
PASCAL-S system are 05H, because single-density drives are single-sided (all 
bits off in the upper nybble), and accommodate 5 Pascal blocks per track (5H in 
the lower nybble). In PASCAL-DQ,' the characteristics bytes are all 8AH, 
indicating that the standard DQ system expects only single-sided drives, 
operating in double-density, at 10 blocks per track. For double-sided drives, 
the corresponding characteristics bytes should be changed to CAH. (In North 
Star Pascal Version 1, it is not possible for any drive in a DQ system to access 
single-density information, no matter how the characteristics bytes are set, nor 
can PASCAL-S access double-density information. The "density" bit in each 
characteristics byte has been included for use by future versions of North Star 
Pascal. ) 

SYS0RG+42BH and 

SYS0RG+42CH: RESERVED FOR FUTURE EXPANSION 
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APPENDIX 2: SAMPLE INPUT/ OUTPUT ROUTINES 

The following is an assembler listing of the HORIZON User Area routines 
supplied on the standard PASCAL-DQ release bootstrap diskette. (The routines 
used by PASCAL-S are almost exactly identical, except for the drive 
characteristics bytes. ) You may use these routines as models in writing your 
own personalization routines. 



0000 




0000 




0000 




0000 




0400 




0400 




0400 




0400 


00FF 


0400 


0000 


0400 


0080 


0400 


0010 


0400 




0400 




0400 




0400 




0400 




0400 




0400 




0400 


007F 


0400 




0400 


0400 


0400 


0600 


0400 




0400 




0400 


0003 


0400 




0400 


0002 


0400 


0002 


0400 


0001 


0400 




0400 




0400 


0005 


0400 




0400 


0004 


0400 


0002 


0400 


0001 


0400 




0400 




0400 


0006 


0400 




0400 


0000 


0400 


0002 


0400 


0001 


0400 




0400 


0080 


0400 


0020 



*#*#**###*« user Area Routines for N* Horizon 

(Last modified 29-Nov-79) 



**&#***«*«* 



. ORG 1 024 . 
Define Constants 



TRUE . EQU 
FALSE . EQU 
HIGHBIT .EQU 
DLE . EQU 



ASCII .EQU 

NSJTST .EQU 
STRTSR . EQU 



CSTAT . EQU 



PSTAT . EQU 



RSTAT . EQU 



0FFH 
00 
80H 
10H 



7FH 



$ 



NSJTST+512, 



CDATA 


.EQU 


2 


CRDYINP 


.EQU 


2 


CRDY0UT 


.EQU 


1 



PDATA 


.EQU 


4 


PRDYINP 


.EQU 


2 


PRDYOUT 


.EQU 


1 



RDATA 

RRDYINP 

RRDYOUT 


.EQU 
.EQU 
.EQU 



2 
1 


RSTROBE 
RPOFLG 


.EQU 
.EQU 


80H 
20H 



User area = NSBIOS + 1K. 



MSB in byte. 

Control-P, ASCII DLE, which 
is system lead-in for 
blanks-compression code. 
Pascal system routinely 
"eats" this character. 
Special measures have to be 
taken to input it. (See 
CONINP, below.) 

ANI mask to strip parity bit. 

Start of N* jump table. 
Memory- sizing search will 
start here. 

Console status port. 
(Consoles HORIZON L serial.) 
Console data port. 
Mask for console char ready. 
Mask for console ready to 
accept char. 

Printer status port. 
(Printer=H0RIZ0N R serial.) 
Printer data port. 
Mask for printer char ready. 
Mask for printer ready to 
accept char. 

Remote status port. 
(Remoter HORIZON par. port.) 
Remote data port. 
Mask for remote char ready. 
Mask for remote ready to 

accept char. 
Position of strobe bit. 
Position of P0 bit. 
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0400 



0400 


0009 


0400 


00E8 


0400 




0400 


0080 


0400 




0400 


0000 


0400 


0040 


0400 




0400 


0000 


0400 


OOOA 


0400 


0005 


0400 




0400 


008A 


0400 




0400 




0400 




0400 




0400 




0400 




0400 




0400 




0400 


0006 


0400 


OOCO 


0400 


0040 


0400 


0041 


0400 




0400 




0400 




0400 


C3 *#*« 


0403 


C3 *«*# 


0406 


C3 ***# 


0409 


C3 #*** 


040C 




040C 


C3 *#** 


040F 


C3 #*«* 


0412 


C3 #*** 


0415 




0415 


C3 **** 


0418 


C3 **** 


041B 


C3 **** 


041E 




041E 


C3 *#** 


0421 




0421 


C3 ***« 


0424 




0424 


C3 #*** 


0427 




0427 


8A 


0428 


8A 


0429 


8A 


042A 


8A 


042B 




042B 


00 00 


042D 





NOTRDY . EQU 
DCTRLB . EQU 

DDENS . EQU 



SDENS 
QUADC 



.EQU 
.EQU 



ONESIDE .EQU 
DBLKTRK .EQU 
SBLKTRK .EQU 

CHARACS .EQU 



JMP 



9 
0E8H 

80H 

OOH 
40H 

OOH 
10. 
5. 



Device off-line code. 

High byte of disk controller 

address. 
Denotes double-density mode 

for drive characteristics. 

Denotes single-density mode. 
Denotes quad (double-sided) 

drive capacity. 
One-sided drive capacity. 
Pascal blocks per track, DQ. 
Pascal blocks per track, SD. 



DDENS+ONESIDE+DBLKTRK ; 

All 4 



MBOARD 


.EQU 


06 H 


RAMPORT 


.EQU 


OCOH 


PARITYD 


.EQU 


40H 


PARITYE 


.EQU 


41H 


; Jump 


Table 




CONONL 


JMP 


ONLINE 




JMP 


CONINP 




JMP 


CONOUT 




JMP 


CONST 


PTRONL 


JMP 


ONLINE 




JMP 


PTRINP 




JMP 


PTROUT 


REMONL 


JMP 


ONLINE 




JMP 


REMINP 




JMP 


REMOUT 



NSMSIZ 





JMP 


OFFLIN 




JMP 


MACINT 


DV4CHR 


.BYTE 


CHARACS 


DV5CHR 


.BYTE 


CHARACS 


DV9CHR 


.BYTE 


CHARACS 


DV10CHR 


.BYTE 


CHARACS 



drive characteristics 
bytes will denote DD mode, 
one-sided operation § 10 
blocks/track. 
SDENS+ONESIDE+SBLKTRK is 

standard CHARACS for single 
density. 

Motherboard status port. 
N* RAM communication port. 
Code to disable RAM parity. 
Code to enable RAM parity. 



; NSCLOK is off-line. 

; Machine initialization. 



EXPANSN .BLOCK 2,0 



; Reserved for future use. 
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042D! 




042D | 




0404* 


2D04 


042D! 


DB 03 


042FJ 


E6 02 


0431 I 


CA 2D04 


0434 j 


DB 02 


0436 I 


E6 7F 


0438! 


FE 10 


043A| 


CO 


043B| 


F6 80 


04 3D ,' 




043DJ 




043D! 




043DI 




04 3D | 




04 3D! 




043D! 




043D! 




043D! 


C9 


043E! 




0407* 


3E04 


043E! 


DB 03 


0440! 


E6 01 


0442! 


CA 3E04 


0445 ! 


79 


0446! 


E6 FF 


0448! 




0448! 




0448! 




0448! 


D3 02 


044A! 


AF 


044B! 


C9 


044C! 




040A* 


4C04 


044C! 


DB 03 


044E! 


E6 02 


0450! 


CA **** 


0453! 


3E FF 


0455 ! 


C9 


0451* 


5604 


0456! 


3E 00 


0458! 


C9 


0459 ! 





; Console drivers 



CONINP IN 


CSTAT 


ANI 


CRDYINP 


JZ 


CONINP 


IN 


CDATA 


ANI 


ASCII 


CPI 


DLE 


RNZ 




ORI 


HIGHBIT 



RET 



CONOUT 


IN 


CSTAT 




ANI 


CRDYOUT 




JZ 


CONOUT 




MOV 


A,C 




ANI 


OFFH 



CONST 



$01 



OUT 


CDATA 


XRA 


A 


RET 




IN 


CSTAT 


ANI 


CRDYINP 


JZ 


$01 


MVI 


A, TRUE 


RET 




MVI 


A, FALSE 


RET 





; Check status. 

; Loop on no character. 

; Return character in ace. 

; Is character control-p? 

; Turning on the high bit 
; "fools" Pascal system 
; into not "eating" char. 

; It is now impossible for 
; a program to input DLE 
; CHR(16) from console. 
; All DLE's are intercepted 
; here first, and translated 
; to CHR(144) {16+128}. 



; Check status. 

; Loop on not ready. 

; Nov/, a no-op. Change FFH to 
; 7FH (value of ASCII, above) 
; to strip parity bit before 
; output. 

; Output character in reg C. 

; Good I/O result. 



; Check status. 

; Input is ready. 

; No character avail. 



PG 31 - ADDENDUM (REV A) TO PASCAL SYSTEM REFERENCE MANUAL, REV 3 (CONTINUED) 



0459 i 
0459 I 




0410* 


5904 


0459! 


DB 05 


045BI 


E6 02 


045D! 


CA 5904 


0460 i 


DB 01 


0462! 


FE 10 


0464 ! 


C2 ***# 


0467! 


F6 80 


0465* 


6904 


0469! 


4F 


046A! 


AF 


046B! 


C9 


046C! 




0413* 


6C04 


046C! 


DB 05 


046 E| 


E6 01 


0470! 


CA 6C04 


0473! 


79 


0474 | 


E6 FF 


0476! 




0476 | 




0476! 


D3 04 


0478! 


AF 


0479! 


C9 


047A! 




047A! 




047A! 




0419* 


7A04 


047A! 


047A 


047A, 1 


AF 


047B! 


4F 


047C! 




047C,' 


C9 


047D | 




041C* 


7D04 


047D! 


047D 


047D! 


DB 06 


04 7F j 


E6 01 


0481 ! 


CA 7D04 


0484! 


3E 20 


0486 | 


D3 06 


0488! 


79 


0489! 


F6 80 


048B! 


D3 00 


048D ! 


EE 80 


048F! 


D3 00 


0491 ! 


EE 80 


0493! 


D3 00 


0495 i 


AF 


0496! 


C9 


0497! 





; Printer driver 



PTRINP 


IN 


PSTAT 




ANI 


PRDYINP 




JZ 


PTRINP 




IN 


PRDYOUT 




CPI 


DLE 




JNZ 


$01 




ORI 


HIGHBIT 


$01 


MOV 


C,A 




XRA 


A 




RET 




PTROUT 


IN 


PSTAT 




ANI 


PRDYOUT 




JZ 


PTROUT 




MOV 


A,C 




ANI 


OFFH 




OUT 


PDATA 




XRA 


A 




RET 




; Remote driver 




REMINP 


.EQU 


$ 




XRA 


A 




MOV 


C,A 



RET 



REMOUT . EQU 


$ 


IN 


RSTAT 


ANI 


RRDYOUT 


JZ 


REMOUT 


MVI 


A, RPOFLG 


OUT 


RSTAT 


REMOUT1 MOV 


A,C 


ORI 


RSTROBE 


OUT 


RDATA 


XRI 


RSTROBE 


OUT 


RDATA 


XRI 


RSTROBE 


OUT 


RDATA 


XRA 


A 


RET 





; Character input. 



Same intent to translate 
DLE as in CONINP, 
above. 

; Return character in C. 
; Good I/O result. 



; Character output. 



No-op for now. Change FFH 
to 7FH to mask off parity 
bit before output. 

; Good I/O result. 



Character input. 
Good I/O result. 
No parallel input, so 
simply return null. 



; Character output. 

; The usual status check. 



; Reset PO flag. 

Output char in C. 
Strobe := false. 
Send character. 
Toggle strobe. 

; Toggle strobe. 

; Good I/O result. 
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0497 

0497 

0497 

0497 

0497 

0416* 

040D* 

0401* 

0497 

0498 

0499 

0499 

0499 

0499 

0499 

0499 

0422* 

0499 

049B 

049C 

049C 

049C 

049C 

049C 

049C 

049C 

049C 

049C 

049C 

041 F* 

049C 

049F 

04A1 

04 A2 

04A3 

04 A4 

04 A5 

04 A6 

04A9 

04 AA 

04 AB 

04 AE 

04A7 J 

04 AE 

04 AF 

04 BO 

04B1 

04B1 

04 B2 

0425* 

04 B2 

04B2 

04B3 

04B4 

04B5 

04B7 

04B9 

04BB 

04BE 

04BE 



Vector to this routine if a given device is 
available. ALL I/O drivers (input, output, 
initialization and status) should use this 
when a device is on-line; 



9704 

9704 

9704 

AF 

C9 



9904 
3E 09 
C9 



9C04 
21 0006 
2E FF 
7E 
47 
2F 

77 
BE 
C2 *#** 

70 
24 
C2 A104 

AE04 
25 
2D 
E3 

E9 

B204 
04 B2 
F5 
E5 
AF 

D3 06 
3E 40 
D3 CO 
21 00EC 



ONLINE XRA A 
RET 

Vector to this routine if a given device isn't 
available. ALL I/O drivers (input, output, 
initialization and status) should use this 
when a device is off-line; 



OFFLIN MVI A, N0TRDY 
n RET 
Dynamic Memory Sizing 

Note sequence for returning to calling routine: 
XTHL 
PCHL 
It's crucial that a return is done in this way, 
else system will probably crash. When this 
return sequence is executed, HL must be hold- 
ing pointer to last WORD of contiguous memory 
available. 



NSMSIZ 


LXI 


H, STRTSR 




MVI 


L,0FFH 


$01 


MOV 


A,M 




MOV 


B,A 




CMA 






MOV 


M,A 




CMP 


M 




JNZ 


ENDSRCH 




MOV 


M,B 




INR 


H 




JNZ 


$01 


ENDSRCH 


DCR 


H 




DCR 


L 




XTHL 





PCHL 



MACINT . EQU 
PUSH 
PUSH 
XRA 
OUT 
MVI 
OUT 
LXI 



Start sizing 

on 256 boundary- 1 ; 
Get current contents of 

test loc and save it. 
Complement A. 
Stuff it back in. 
Is it the same? 

No: then found end. 

Yes: Put byte back. 
Move on to deader pastures. 
Stop when we wrap around. 



Go back to last memory bank, 
Point to last memory WORD. 
Put onto stack, 

get return address, 

and return. 



$ ; Initialize HORIZON machine. 

PSW 

H 

A 

MBOARD 

A,PARITYD 

RAMPORT 

H,DCTRLB*100H+1024. 

; Disc controller board addr 

: + 1K. 



; Does the motherboard. 
; Parity disabled on RAM. 
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04 BE 




04BE 


04BE 


04BE 


7E 


04 BF 


77 


04C0 


2C 


04C1 


C2 BE04 


04 C4 


24 


04C5 


7C 


04C6 


FE E8 


04 C8 


C2 BE04 


04 CB 




04 CB 


3E 41 


04 CD 


D3 CO 


04 CF 




04 CF 




04CF 




04 CF 


3E 03 


04D1 


D3 03 


04D3 


D3 05 


04D5 


3E 40 


04D7 


D3 03 


04D9 


D3 05 


04 DB 


E3 


04 DC 


E3 


04DD 


3E CE 


04 DF 




04DF 


D3 03 


04E1 


3E CE 


04 E3 


D3 05 


04 E5 


3E 27 


04 E7 


D3 03 


04E9 


3E 27 


04 EB 


D3 05 


04 ED 


DB 02 


04 EF 


DB 04 


04F1 




04F1 




04F1 


3E 60 


04F3 


D3 06 


04F5 


3E OD 


04F7 


CD 8804 


04FA 




04FA 


E1 


04FB 


F1 


04FC 


C9 


04FD 




04FD 





RAMINT . EQU 


$ 


MOV 


A,M 


MOV 


M,A 


INR 


L 


JNZ 


RAMINT 


INR 


H 


MOV 


A,H 


CPI 


DCTRLB 


JNZ 


RAMINT 


MVI 


A, PARITYE 


OUT 


RAMPORT 



Initialize HORIZON RAM. 
Rewrite RAM byte — proper 

parity will be set. 
Ready for next byte. 
If same page, no problem. 
Page : = page + 1 . 
Have we wrapped around to 

disk-controller yet? 
If not, back for more. 

Enable RAM parity logic, 
and we're done. 



Now, initialize serial ports/Usarts 



Code to reset Usarts, 
to L. serial port, 
and R. serial port. 

Another Usart code, 
to Left, 
and Right. 

Let parameters sink in — 
waste a little time. 

2 stop bits, l6*clock, 
8 data bits, no parity. 

; Same for R ser. port. 

; CMD: RTS,ER,RXF,DTR,TXEN. 

; Same for R ser. port. 

,* Reset L. rda. 
; Reset R. rda. 



; Now, initialize the parallel port (REMOUT:) 

MVI A, 60H ; Code to set PO flag. 

OUT RSTAT 

MVI A,0DH ; Send a carriage return. 

CALL REM0UT1 



MVI 


A,3 


OUT 


CSTAT 


OUT 


PSTAT 


MVI 


A,40H 


OUT 


CSTAT 


OUT 


PSTAT 


XTHL 




XTHL 




MVI 


A,0CEH 


OUT 


CSTAT 


MVI 


A,0CEH 


OUT 


PSTAT 


MVI 


A,27H 


OUT 


CSTAT 


MVI 


A,27H 


OUT 


PSTAT 


IN 


CDATA 


IN 


PDATA 



POP 


H 


POP 


PSW 


RET 





.END 
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APPENDIX 3: A BRIEF PASCAL BIBLIOGRAPHY 

The Pascal programming language itself has not been covered in either the 
NORTH STAR PASCAL SYSTEM REFERENCE MANUAL, or this ADDENDUM; the assumption has 
been that anyone who reads these documents with an eye toward learning the 
mechanics of the North Star Pascal Program Development System is already well- 
grounded in Pascal. For those who need first to learn Pascal programming, 
several excellent references are available. 
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CORRECT PROGRAMS, Springer- Verlag: 1978. 
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BYTE/McGraw-Hill: 1980. 

Bowles, Kenneth L., MICROCOMPUTER PROBLEM SOLVING USING PASCAL; Springer- 
Verlag, 1978. 

Gabrielson, Mike, "Pascal Bibliography", DR. DOBB'S JOURNAL, Vol 4:2 (32), 
Feb 1979, pp. 29-30. 

Grogono, Peter, PROGRAMMING IN PASCAL, Addison- Wesley: 1978. 

Jensen, Kathleen, and Wirth, Niklaus, PASCAL USER MANUAL AND REPORT (second 
edition), Springer- Verlag: 1975. 

Mickel, Andy and Jim Miner (eds.), PASCAL NEWS, International Pascal Users 1 
Group, University Computer Center, 227 Experimental Engineering Bldg. , 
University of Minnesota, 208 S.E. Union Street, Minneapolis MN 55455 USA. 

Schneider, G.M. , Weingart, S. , and Perlman, D. , AN INTRODUCTION TO 
PROGRAMMING AND PROBLEM SOLVING WITH PASCAL, Wiley: 1973- 

Wilson, I.R., and Addyman, A.M., A PRACTICAL INTRODUCTION TO PASCAL, 
Springer- Verlag: 1979. 

Wirth, Niklaus, ALGORITHMS + DATA STRUCTURES = PROGRAMS, Prentice-Hall: 
1976. 

Wirth, Niklaus, SYSTEMATIC PROGRAMMING — AN INTRODUCTION, Prentice- Hall: 
1973. 



